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Votc.h 

/* 

************************************************************** 

* file: tc_v2.h 

* date: April 12, 2000 

* function: tests turbo codes 

* Modulation: QAM 

* Decoder: MAP algorithm 

****************************************************************************** 
*/ 

# include <math.h> 
# include <stdio.h> 
#include <malloc.h> 
#include <dos.h> 



/* Definition of the first recursive systematic code (RSC1) : 
# define RSC1_ENC_MEM 4 /* encoder memory order 

#define RSC1_STATES (1 « RSC1_ENC_MEM) 

# define RSC1_FP 035 /* forward polynomial in octal 

# define RSCl BP 023 /* backward polynomial in octal 



/* Definition of the 
# define RSC2_ENC_MEM 
% define RSC2_STATES 
3 define RSC2_FP 
define RSC2_BP 

I define NR_ITER 
fl define EBNO 
#define MAX_ERRORS 
#define INT_SIZE 

#define MAX 
#define E_STEPS 
#define PRINT_BLOCKS 
#define SEEDl 
#define SEED2 



#define SIGMA_12_4AM 
#define SIGMA_12_16QAM 
#define SIGMA 34 16QAM 



second recursive systematic code (RSC2) 



4 


/* 


encoder memory order 


*/ 


(1 « RSC2 


ENC MEM) 






035 


/* 


forward polynomial in octal 


*/ 


023 


/* 


backward polynomial in octal 


*/ 


8 


/* 


nr. of iterative decoding stages 


*/ 


6.0 


/* 


Eb/No in dB 


*/ 


1000 


/* 


stop when this nr. is reached 


*/ 


6144 


/* 


nr. of info bits to be ileaved 


*/ 


(exp(31.0) 


) /* 


limit soft outputs 


*/ 


1000 


/* 


number of values for E_val 


*/ 


100 


/* 


how often to print results 


*/ 


13733 


/* 


seeds for random nr. gen. 


*/ 


1935791 









sqrt(2.50 * pow (10.0, ( -EBNO / 10.0))) /* A = 1 
sqrt(2.50 * pow (10.0, { -EBNO / 10.0))) 
sqrt{ (10.0/6.0) * pow (10.0, (-EBNO / 10.0))) 



,0 */ 



/* For 8AM, 6 4 QAM, 256QAM, A - 0.5 => A* A = 0.25. Thus, Eav = 5.25*A*A = Eav/4 

„ , , * o / a j. / i r\ r\ t ■r-.-nvn"! / 1 f\ n \ \ \ 



#define SIGMA_56_64QAM 
#define SIGMA_4 6_64QAM 
#define SIGMA_23_8AM 
#define SIGMA_12_8AM 
#define SIGMA_58_256QAM 
#define SIGMA 68 256QAM 



5 => a*A = 0.25. Thus, Eav = 5.25*A : 
(4.2/4 * pow (10.0, (-EBNO / 10.0))) 
(5.25/4 * pow (10.0, (-EBNO / 10.0))) 
(5.25/4 * pow (10.0, (-EBNO / 10.0))) 



sqrt(4.2/4 * 
sqrt (" 
sqrt . . 

sqrt(7.0/4 * pow(^.v, x , 
sqrt(17.0/4 * pow (10.0, (-EBNO / 10.0)); 
sqrt ( (170.0/12) /4 * pow ( 10 . 0, (-EBNO / 10.0))) 



(10.0, ( -EBNO / 10.0) ) ) 
n n / — tttstcipi / in n\ 1 



/* For 4 QAM (A = 0.5) :*/ 

#define SIGMA_24_4QAM sqrt (2 . 0/2 . 0/4 * pow (10.0, (-EBNO / 10.0))) /* 1 info */ 
#define SIGMA_26_4QAM sqrt (2.0/ (4.0/3) /4 * pow ( 10 . 0, (-EBNO / 10.0))) /* 2/3 info */ 
/* For 8 QAM (A = 0.5) :*/ 

sqrt (6.0/4.0/4 
sqrt (6.0/4.0/4 
sqrt (6.0/2.0/4 
sqrt (6.0/2.0/4 
sqrt (6.0/2.0/4 
sqrt (6.0/2.0/4 



# define SIGMA_4AM__of_46_8QAM 
#define S I GMA_2 AM_o f _4 6_8QAM 
# define SIGMA_4AM_of_26_8QAM 
# define SIGMA_2AM_of_26_8QAM 
tdefine S I GMA_4 AM_o f _1 3_8 QAM 
#define SIGMA 2AM of 13 8 QAM 



pow (10.0, (-EBNO / 10.0))) 

powdO.O, (-EBNO / 10.0) ) ) 

powdO.O, (-EBNO / 10.0) ) ) 

pow(10.0, (-EBNO / 10.0) ) ) 

pow (10.0, ( -EBNO / 10.0))) 

powdO.O, ( -EBNO / 10.0) ) ) 



/* 
/* 
/* 
/* 
/* 
/* 



#define SIGMA_36_64QAM sqrt (42 . 0/6 . 0/4 * pow (10.0, (-EBNO / 10.0))) /* 3 info 



info*/ 
info*/ 
info*/ 
info*/ 
info*/ 
info*/ 
*/ 



/* For 16QAM, 64QAM, 256QAM, 1024QAM (A = 0.5):*/ 

#define SIGMA_412_16QAM sqrt (10.0/ (8 .0/3) /l * pow (10.0, (-EBNO / 10.0))) /* 4/3 A=l */ 
#define SIGMA_26_64QAM sqrt ( 42 . 0/4 . 0/4 * pow (10 . 0, (-EBNO / 10.0))) /* 2 info */ 
#define SIGMA_824_256QAM sqrt (170 .0/ (10 . 0/3) /4 * pow { 10 . 0, (-EBNO / 10.0))) /* 10/3*/ 
#define SIGMA_1030_1024QAM sqrt (341.0/ (10.0/3) /4 * pow (10.0, ( -EBNO / 10.0))) /*10/3 */ 
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/* For 3 2 QAM, 128QAM, 512QAM, {A = 0.5):*/ 

#define SIGMA_8AM_of_115_32QAM sqrt (21 . 0/2/4 * pow (10.0, (-EBNO / 10.0))) /* 1 info */ 

#define SIGMA_4AM_of_115_32QAM sqrt (5.00/ (4/3) /4 * pow (10 . 0, (-EBNO / 10.0))) /*2/3*/ 
#define SIGMA_16AM_of_721_128QAM sqrt {85 . 0/ (8/3) /4 * pow(10.0, (-EBNO / 10.0))) /*4/3*/ 
#define SIGMA_8AM_of J721_128QAM sqrt (21 . 0/2/4 * pow {10.0, ( -EBNO / 10.0))) /* 1 info */ 
#define SIGMA_32AM_of_39_512QAM sqrt (341 . 0/4/4*pow (10 . 0, (-EBNO / 10.0))) /* 2 info */ 
#define SIGMAJL6AM_of_39_512QAM sqrt ( 85 . 00/2/4*pow ( 10 . 0 , ( -EBNO / 10.0))) /* 1 info */ 

/* For 32QAM (A = 0.5) :*/ 

#define SIGMA_8AM_of_32QAM sqrt (26 . 0/6/4 * pow (10 . 0, (-EBNO / 10.0))) /* 3 info */ 
#define SIGMA_4AM_of_32QAM sqrt (26 . 0/6/4 * pow (10.0, (-EBNO / 10.0))) /* 3 info */ 

/* For R57__128QAM (A = 0.5):*/ 

#define SIGMA_16AM_of_128QAM sqrt (106 . 0/10/4 * pow ( 10 . 0, (-EBNO / 10.0))) /* 3 info */ 
#define SIGMA_8AM_of_128QAM sqrt (106. 0/10/4 * pow {10.0, (-EBNO / 10.0))) /* 2 info */ 

/* For R69_512QAM (A = 0.5):*/ 

#define SIGMA_32AM_of_512QAM sqrt (426. 0/12/4*pow(10 . 0, (-EBNO / 10.0))) /* 4 info */ 
#define SIGMA_16AM_of_512QAM sqrt ( 426 . 0/12/4*pow ( 10 . 0, (-EBNO / 10.0))) /* 2 info */ 

/* For R710JL024QAM {A = 0.5):*/ 

#define SIGMA_710_1024QAM sqrt ( (341 . 0/7) /4 * pow (10.0, {-EBNO / 10.0))) /* 3.5 info */ 

/* Define the particular coding and modulation case for simulation */ 
#define R36_64QAM 

#define BIT_HIST 

#define THRESHOLD_ITER 10 /* record bit histogram for higher iterations */ 

#define MAX_B I T_H I ST_ARRA Y (2 * INTJSIZE) 

#define ERROR_FILE_NAME ". . /results/R36_64QAM_6144_test_30 . err" 

#define FRAME__HIST_FILE_NAME ".. /results/test . f hist" 

#define BIT_HIST_FILE_NAME ".. /results/map. hist" 

^define INTERLEAVER__FILE " . . /results/6144/s6144" 



/* 

* Notel: 

Make sure that for each simulation, the INT_SIZE represents the size of the interleaver 
defined in INTERLEAVER_FILE 
*/ 

/* 

* Note2: 

In rate 4/6 64QAMJTTCM only two bits out of four are coded rate half. Therefore, 
the first half of the interleaver table used has a INT_SIZE/2 interleaver, 
the rest is mapping the bits in the same position. 
*/ 
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Votc.c 



************ 


*************** 










* file: 


tc v2 . c 










* date: 


March 20, 2000 








* function: 


tests turbo 


codes 








* 


Modulation: 


QAM 










Decoder: 


MAP algorithm 




************ 
*/ 


*************** 


******** 


************************************ 


****** 


include "tc_ 


_v2.h" 










ypedef struct { 








*/ 


int 


enc_state; 




/* 


encoder state 


int 


nr_states; 




/* 


number of encoder states 


*/ 


int 


enc mem; 




/* 


encoder memory 


*/ 


int 


bp; 




/* 


backward polynomial 


*/ 


int 


fp; 




/* 


forward polynomial 


*/ 


int 


*P0state; 




/* 


previous state for i=0 branch 


*/ 


int 


*Plstate; 




/* 


previous state for i=l branch 


*/ 


int 


*N0state; 




/* 


next state for i=0 branch 


*/ 


int 


*Nlstate; 




/* 


next state for i=l branch 


*/ 


int 


*Coded0; 




/* 


coded bit for i-0 branch 


*/ 


int 


*Codedl; 




/* 


coded bit for i=l branch 


*/ 



} j at_code ; 

void 

void 

void 

int 

int 

void 

void 

void 

void 

double 

int 

double 

int 

int 

double 
double 



jat_mapl ( jat_code *, double *, double *, double 

jat_map2 ( jat_code *, double *, double *, double 

jat_trellis__bp_fp ( jat_code *) ; 

jat_ps ( jat_code *, int); 

j at_enc_bp_f p ( j at_code * , int } ; 

r_ileav {double *, int *} ; 

r__ileava (int *, int *); 

r_deileav (double *, int *) ; 

r_deileava (int *, int *) ; 

nrgen ( ) ; 

nrgenbin ( ) ; 

gasdev ( ) ; 

errors (int *, double *, int, int); 
print_err (int *, double *, int, int, int *); 
find_tx_I(int); 
find tx Q (int) ; 



double *) ; 
double *) ; 



int 
int 



int 

int 
int 
long 



*f rame_hist; 
**bit hist_array; 



* b i t_hi s t_bl oc k ; 

f rame_err; 
total_err; 
si, s2; 



/* how many frames with how many errors*/ 
/* pointer to NR_ITER pointers 

to blocks of data organised as: 

block nr., bit pos . in error, 
block nr., bit pos. in error */ 
/* current number of blocks in error 

for each iteration */ 
/* frame/block error rate */ 
/* total nr. of err. after NR_ITER */ 
/* seed generators */ 



main { ) 
{ 

jat_code *jat_codel; 

jat_code *jat_code2; 

int ul, u2, u3, u4, u5, u6; /* bits of a 64QAM symbol in TTCM */ 

double tx_I, tx_Q, rx_I, rx_Q; 

double v00_l, v00_Q, v01_I, v01_Q, vl0_I, vl0_Q, vll_I, vll_Q; 

int i, j, k, block, iteration; 

int *rule ; /* int erle aver */ 

int *data; /* the information block of data */ 
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int 


*data_i; 




/* 


the interleaved information block of data*/ 


int 


*data_d; 




/ 


the deinterleaved inf. block of data 


/ 


int 


*Encl; 




/ 


Encoderl output 




int 


*Enc2; 






Encoder 2 output 


* / 


int 


*no_err; 




/* 


stores nr. err. for each iteration 


* j 

* / 


double 


*Dl_data; 






Decoder 1 input data 


/ 


double 


*Dl parity; 






Decoderl input parity 


/ 


double 


*D1 app; 




/* 


Decoderl input a priori information 


/ 


double 


*Dl_exi; 




/* 


Decoderl output extrinsic information 


* / 


double 


*D2_data; 




J-k 


Decoder2 input data 


/ 


double 


*D2 parity; 




/* 


Decoder2 input parity 


/ 


double 


*D2_app; 




/* 


Decoder2 input a priori information 


* / 


double 


*D2__exi; 




/* 


Decoder2 output extrinsic information 


*/ 


double 


*Dec_data; 




/* 


Decoded data 


*/ 


double 


*2ero data; 




/* 


zero data 


*/ 


double 


dO, dl, d2, 


d3, d4 


/ L - 


dO, L dl, L d2, L_d3, tx, rx, K, noisel, n; 




double 


L_d4, L_d5; 










double 


L ul, L_u2, 


L_u3, 


L u4, L_u5, L_u6; 




double 


noise I, noise_Q; 








FILE 


*out_file = 


NULL; 









si = SEED1; /* initialize the seeds for the noise generator */ 

s2 = SEED2; 

frame_err = 0 ; 
total err = 0; 



/* 



* initialize the code structures: 
*/ 



at_codel 

at_codel->enc_mem 

at_codel->bp 

at__codel->fp 

at_codel->enc_state = 

at_codel->nr_states = 

at_codel->POstate 

at_codel->Plstate 

at_codel->NOstate 

at_codel->Nlstate 

at_codel->CodedO 

at_codel->Codedl 

at_trellis_bp_f p ( j at_ 

at_code2 

at_code2->enc_mem 
at_code2->bp 
at_code2->fp 
at_code2->enc_state = 
at_code2->nr_states : 
at_code2->P0state 
at_code2->Plstate 
at_code2->N0state 
at_code2->Nlstate 
at_code2 ->CodedO 
_ at_code2->Codedl 
jat_trellis__bp_fp ( jat 



- (jat_code *) malloc (sizeof ( jat_ 
= RSC1_ENC_MEM; 

■■ RSC1_BP; 
= RSC1_FP; 

- 0; 

= {1 « RSC1_ENC_MEM) ; 
= (int *)malloc (sizeof (int) *jat_ 
• (int *)malloc (sizeof (int) *jat_ 
= (int *)malloc(sizeof (int) *jat_ 
= (int *)malloc (sizeof (int) *jat_ 
= (int *)malloc (sizeof (int) *jat_ 
s (int *)malloc (sizeof (int) *jat_ 
code 1 ) ; 

~ s (jat_code *) malloc (sizeof (jat_ 
= RSC2_ENC_MEM; 
= RSC2_BP; 
= RSC2_FP; 
= 0; 

= (1 « RSC2_ENC_MEM) ; 

= (int *)malloc (sizeof (int) *jat_ 

- (int *)malloc (sizeof (int) *jat_ 
= (int *)malloc (sizeof (int) *jat_ 
= (int *)malloc (sizeof (int) *jat_ 
= (int *)malloc (sizeof (int) *jat_ 
= (int *) malloc (sizeof (int) *jat_ 
code 2) ; 



code) ) ; 



codel->nr 
codel->nr 
codel->nr 
codel->nr 
codel->nr 
codel->nr 

code ) ) ; 



states) ; 

states) ; 
_states) ; 
_states) ; 
_states) ; 

states) ; 



code2->nr_ 
code2->nr_ 
_code2->nr_ 
code2->nr_ 
code2->nr_ 
code2->nr 



states) ; 
states) ; 
states) ; 
states) ; 
states ) ; 
states) ; 



data = (int * ) malloc ( sizeof (int) * INT_SIZE) ; 
if (data == 0) 
{ 

printf ("Couldn't allocate data memory!\n"); 
exit (1) ; 

) 

data_i = (int *)malloc (sizeof (int) * INT_SIZE) ; 
if (data_i == 0) 
{ 

printf ("Couldn't allocate data_i memory ! \n" ) ; 
exit(l) ; 

} 
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data_d = (int *) malloc (sizeof (int) * INT_SIZE) ; 
if (data_d == 0) 
{ 

printf ("Couldn't allocate data_d memory !\n"); 
exit (1) ; 

} 

no_err = (int *)malloc (sizeof (int) * NR_ITER) ; 
if{no_err == 0) 
{ 

printf ("Couldn't allocate no_err memory!\n"); 
exit (1) ; 

} 

else 

for(i = 0; i < NR_ITER; i++) 
no_err[i] = 0; 

Encl = (int *)malloc ( sizeof (int) * INT_SIZE) ; 
if (End == 0) 
{ 

printf ("Couldn't allocate Encl memory ! \n") ; 
exit (1) ; 

} 

Enc2 = (int *)malloc (sizeof (int) * INT_SIZE); 
if(Enc2 == 0) 
{ 

printf ("Couldn't allocate Enc2 memory ! \n" ) ; 
exit(l) ; 

} 

Dl_data = (double *)malloc (sizeof (double) * INT_SIZE) ; 
if (Dl_data == 0) 
{ 

printf ("Couldn't allocate Dl_data memory !\n"); 
exit (1); 

} 

Disparity = (double *)malloc (sizeof (double) * INT_SIZE) ; 
if (Disparity === 0) 
{ 

printf ("Couldn't allocate Dl_parity memory!\n"); 
exit (1) ; 

} 

Dl_app = (double *)malloc ( sizeof (double) * INTJSIZE) ; 
if (Dl_app =- 0) 
{ 

printf ("Couldn't allocate Dl_app memory!\n"); 
exit (1) ; 

} 

Dl_exi = (double *) malloc (sizeof (double) * INT_SIZE) ; 
if(Dl_exi == 0) 
{ 

printf ("Couldn 1 t allocate Dl_exi memory ! \n" ) ; 
exit(l) ; 

} 

D2_data = (double *) malloc (sizeof (double) * INT_SIZE) ; 
if (D2_data == 0) 
{ 

printf ("Couldn' t allocate D2_data memory! \n") ; 
exit (1) ; 

} 

D2_parity = (double *) malloc ( sizeof (double) * INT_SIZE) ; 
if (D2_parity == 0) 
{ 

printf ("Couldn't allocate D2_parity memory ! \n" ) ; 
exit(l) ; 
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} 

D2_app - (double *)malloc (sizeof (double) * INT_SIZE) ; 
if (D2_app == 0) 
{ 

printf ("Couldn't allocate D2_app memory ! \n" ) ; 
exit(l) ; 

} 

D2_exi = (double *) malloc (sizeof (double) * INT_SIZE); 
if(D2_exi == 0) 
{ 

printf ("Couldn't allocate D2_exi memory !\n"); 
exit (1) ; 

} 

Dec_data = (double *)malloc (sizeof (double) * INT_SIZE) ; 
if (Dec_data == 0) 
{ 

printf ("Couldn't allocate Dec_data memory ! \n") ; 
exit (1) ; 

} 

Zero_data = (double *) malloc ( sizeof (double ) * INT_SIZE) ; 
if(Zero_data == 0) 
{ 

printf ("Couldn't allocate Zero_data memory!\n"); 
exit(l); 

} 

ford - 0; i < INT_SIZE; i++) 
Zero_data[i] - 0.0; 

framejiist = (int *) malloc (sizeof (int) * (INT_SIZE+1) * NR_ITER) ; 
if (f rame_hist == 0) 
{ 

printf ("Couldn't allocate framejiist memory !\n"); 
exit (1) ; 

} 

else 
{ 

for(i = 0; i < (INT_SIZE+1) *NR_ITER; i++) 
framejiist dl = 0; 

} 

bitjiist_array - (int ** ) malloc (sizeof (int *) * 2 * NRJTER) ; 
if (bit_hist_array == 0) 
{ 

printf ("Couldn't allocate bitjiist_array memory !\n"); 
exit (1) ; 

} 

else 
{ 

ford = THRESHOLD_ITER; i <= NR_ITER; 
{ 

bit_hist_array[i] = (int *)malloc (sizeof (int) * MAX_BIT_HIST_ARRAY) ; 
bit_hist_array[i+NR_ITER] = bit_hist_array[i] ; /* store the original pointer */ 
if (bit_hist_array[i] == 0) 
{ 

printf ("Couldn't allocate bit_hist_array [i] memory ! \n") ; 
exit (1) ; 

} 

} 

} 

bitjiistjolock = (int *) malloc (sizeof (int) * (NR_ITER+1) ) ; 
if (bit_hist_block == 0) 
{ 

printf ("Couldn' t allocate bit_hist_block memory !\n"); 
exit ( 1 ) ; 

} 

else 
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{ 

for(i =0; i <= NR_ITER; 
bit_hist_block[i] = 1; 

} 

ru le = (int * ) malloc ( sizeof (int) * INT_SIZE * 2); 
if (rule == 0) 
{ 

printf ("Couldn't allocate rule memory ! \n") ; 
exit (1) ; 

} 

ford = 0; i < INT_SIZE; 
rule[2*i] = 0; 



/* 

* read the interleaver file 
*/ 

out_file = f open { INTERLEAVER_FILE, V); 



if ( !out_file) 

printf ("Error 1 : the output file could not be opened ! \n" ); 
exit (1); 

} 

for(i = 0; i < INTJSIZE; i++) 

fscanf (out_file, "%d%d", &i, &rule [2*i+l] ) ; 
f close {out file); 



* initialize the noise generator seeds in order to have the same data and 

* noise for different random interleavers 
*/ 

si = SEED1; 
s2 = SEED2; 



/* 

* start the big loop: 
*/ 

for (block = 1; total_err < MAX_ERRORS; block++) 
{ 

jat_codel->enc_state = 0; 
jat_code2->enc_state =0; 
ford = 0; i < INT_SIZE; i++) 
Dl_app[i] = 1.0; 



/* reset encoderl's state */ 
/* reset encoder2's state */ 
/* no app for first decoder */ 



/* 

* generate random data: 
*/ 



ford = 0; 
datad] 



i < INT_SIZE; 
= nrgenbin ( ) ; 



i++) 



/* 

* encoderl: 
*/ 

for(i = 0; i < INT_SIZE; 

Encl[i] = jat_enc_bp_fp( jat_codel, data[i]); 

/* 

* interleave data: 
*/ 

for(i = 0; i < INT_SIZE; 

data_i E i ] = data [ i ] ; 
r__ileava ( data_i , rule ) ; 

/* 

* encoder2: 
*/ 

ford = 0; i < INT_SIZE; 
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Enc2[i] = jat_enc_bp_fp ( jat_code2, data_i[i]); 

/* 

* deinterleave data: 
*/ 

for(i = 0; i < INT_SIZE; i++) 

data_d[i] - data[i]; 
r_deileava (data_d, rule); 

/* 

* modulate and add AWGN noise: 
*/ 



#ifdef R12_4AM 
/* 

* Channel: 

* dO is MSB and dl is LSB in a 4-AM:(dO,dl) = 01— 00- 1 -10— 11 

* -3-113 

*/ 

n = (-1.0) / (2 * SIGMA_12_4AM * SIGMA_12_4AM) ; 
for(i = 0; i < INT_SIZE; 

{ 

dO = data [i] ; 
if(i & 0x1) 

dl - End [i] ; 
else 

dl = Enc2 [i] ; 
tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx - tx + SIGMA_12__4AM * gasdevf); 

L_d0 = log{ (exp(n*(rx-l)*<rx-l) ) +exp (n* { rx-3 )*( rx-3 ) ) ) / 
<exp(n* (rx+1) * (rx+1) ) +exp (n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log ( (exp (n* (rx+3) * (rx+3) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n*(rx-l)*(rx-l) )+exp(n* (rx+1)* (rx+1) ) )) ; 

Dl_data[i] = L_d0; 

if(i & 0x1) 
{ 

Dl_parity[i] = L__dl; 
D2_parity[i] = 0.0; 

} 

else 
{ 

Dl__parity[i] = 0.0; 
D2_parity[i] = L_dl; 

} 

} 

#endif 



#ifdef R13_8AM 
/* 

* Channel: 

* dO is MSB and d2 is LSB in 8-AM: (dO, dl, 62) : 

* 010 011—001 000—100—101 111 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
*/ 

n = (-1.0) / (2 * SIGMA_13_8AM * SIGMA_13_8AM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

dO = data[i] ; 
if(i & 0x1) 
{ 

dl = Encl[ij ; 
d2 = Enc2 [i] ; 

} 

else 
{ 

dl = Enc2 [i] ; 
d2 = Encl[i] ; 
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} 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : ( 0 . 5-d2) ) 
rx = tx + SIGMA_13_8AM * gasdev(); 

L_d0 - log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5) ) +exp (n* ( rx-3 . 5 ) * { rx-3 . 5 ) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* { rx+1 . 5 ) * { rx+1 . 5 ) ) + 
exp(n*(rx+2.5)*(rx+2.5) } +exp <n* (rx+3 . 5 ) * (rx+3.5) ) ) ) ; 

L_dl - log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp(n* (rx-2. 5)* (rx-2. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) / 
( exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1. 5) * {rx-1. 5) ) ) ) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* ( rx-1 . 5 ) * ( rx-1 . 5 ) ) +exp (n* (rx-2 . 5 ) * (rx-2 . 5) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 

Dl_data[i] - L_d0; 
if(i & 0x1) 
{ 

Dl_parity[i] = L_dl; 
D2_parity[i] = L_d2; 

} 

else 
{ 

Dl_parity[i] = L_d2; 
D2_parity[i] = L_dl; 

} 

} 

flendif 

flifdef R12__8AM 
/* 

* Channel: 

* dO is MSB and d2 is LSB in 8-AM: (dO, dl, d2 ) : 

* 010— Oil— 001— 000— 100— 101—111— no 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
*/ 

/* 

* Channel: we transmit two 8AM symbols to emulate a 64QAM symbol. 

* 6 info bits and 6 parity bits are mapped to 2 64QAM symbols which in 

* turn are simulated as 4 8AM symbols to achieve 3bit/s/Hz 
* 

* INT_SIZE to be a multiple of 6 
*/ 

n = (-1.0) / (2 * SIGMA_12_8AM * SIGMA_12_8AM) ; 
for(i = 0; i < INTJSIZE; i++) 
{ 

/* symbol 1 */ 
dO = data[i] ; 
dl = data[i+l] ; 
d2 = Encl[iJ ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( <2*d0-l) * (2*dl-l) }<0? (d2-0.5) : (0.5-d2) ) 
rx = tx + SIGMA_12_8AM * gasdev() ; 

L_d0 = log( (exp(a* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) + 
exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* { rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
(exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) ) ) ; 

L_dl = log ( (exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+2 .5) * (rx+2. 5) ) + 
exp(n*(rx-2.5)*(rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5} ) )/ 
( exp ( n* ( rx+1 . 5 ) * { rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) ) ) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* (rx-1. 5) * (rx-1. 5) ) +exp (n* (rx-2 .5) * (rx-2 .5) ) ) / 
( exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3 . 5 ) * ( rx-3 . 5 ) ) ) ) ; 



10 



COMPUTER PROGRAM LISTING APPENDIX 



Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 

Dl_parity[i] = L_d2; 

Dl_parity[i+1] = 0; 

D2_parity [i] = 0; 

/* symbol 2 */ 
dO = data[i+2] ; 
dl = Enclti+2]; 
d2 = Enc2[i+lJ ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 .5) : (0 .5-d2) ) 
rx = tx + SIGMA_12_8AM * gasdevO; 

L_d0 = log( (exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5)* (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) )/ 
(exp(n*(rx+0.5)*(rx+0.5) ) +exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp(n*<rx+2.5)*(rx+2.5) ) +exp (n* (rx+3 . 5) * (rx+3 . 5) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp (n* (rx-2.5)* (rx-2.5) ) +exp (n* (rx-3 . 5 ) * (rx-3 . 5) ) )/ 
(exp(n*(rx+1.5)*(rx+1.5) )+exp(n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n*(rx-0.5)*{rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) )) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp(n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2 .5) * (rx-2.5) ) ) / 
( exp ( n* ( rx+3 . 5 ) * { rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3 . 5) * ( rx-3 . 5 ) ) ) ) ; 
Dl_data[i+2] = L_d0; 
Dl_parity [i+2] = L_dl; 
D2_parity [i+1] = L_d2; 
D2_parity[i+2] - 0; 

/* symbol 3 */ 
dO = data[i+3] ; 
dl = data[i+4] ; 
d2 = Enc2 [i+3] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * <2*dl-l) ) <0? (d2-0 .5) : (0 . 5-d2) ) 
rx = tx + SIGMA_12_8AM * gasdevO; 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5)* (rx-2.5) )+exp<n* ( rx-3 . 5 ) * (rx-3 . 5 ) ) ) / 
(exp (n* (rx+0. 5) * (rx+0. 5) ) +exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp(n* (rx+2.5)* (rx+2.5) ) +exp (n* (rx+3 . 5) * (rx+3 . 5) ) ) ) ; 

L_dl = log( (exp(n* (rx+3. 5) * (rx+3. 5) )+exp(n* (rx+2.5) * (rx+2.5) ) + 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3. 5)* (rx-3. 5) ) )/ 
(exp(n* (rx+1. 5) * (rx+1. 5) ) +exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp (n* (rx-0 . 5) * (rx-0 . 5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5 ) ) ) ) ; 

L_d2 = log( (exp(n* (rx+2.5)* (rx+2.5) )+exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp (n* (rx-1 . 5) * (rx-1 . 5) ) +exp (n* (rx-2 .5) * (rx-2 . 5) ) ) / 
(exp(n*(rx+3.5)*(rx+3.5) ) +exp (n* (rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5)* (rx-0.5) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) ) ; 
Dl_data[i+3] = L_d0; 
Dl_data[i+4] = L_dl; 
D2_parity [i+3] = L_d2; 
Dl_parity[i+3] = 0; 
D2__parity [i+4] = 0; 

/* symbol 4 */ 
dO - data[i+5] ; 
dl = Encl [i+4] ; 
d2 = Enc2 [i+5] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0.5) : (0 .5-d2) ) 
rx = tx + SIGMA_12_8AM * gasdevO; 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5) ) + 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp (n* (rx+2.5)* (rx+2.5) ) +exp (n* (rx+3.5) * (rx+3 .5) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp (n* (rx-2.5) * (rx-2 .5) ) +exp(n* (rx-3.5) * (rx-3.5) ) } / 
(exp(n* (rx+1. 5)* (rx+1. 5) )+exp(n* (rx+0 .5) * (rx+0 . 5) ) + 



11 



COMPUTER PROGRAM LISTING APPENDIX 



exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5 ) ) ) ) ; 



L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp(n* (rx-1. 5}* (rx-1. 5) ) +exp (n* (rx-2 . 5) * {rx-2 . 5) ) )/ 
(exp (n* (rx+3.5) * (rx+3. 

.5)* (rx-0. 



exp (n* (rx-0 . 
Dl_data[i+5] = L__d0; 
Dl_parity [i+4] = L_dl; 
D2_parity[i+5] = L_d2; 
Dl_parity [i+5] = 0; 



.5) ) +exp (n* (rx+0. 5) * 
.5) )+exp(n*(rx-3.5)' 



{rx+0. 
(rx-3. 



5)) + 
5)))); 



i = i+5; 

} 

#endif 

#ifdef R23_8AM 
/* 

* Channel: 

* dO is MSB and d2 is LSB in 8-AM: (dO , dl, d2 ) : 

* 010—011 001 000—100—101—111 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

*/ 



n = (-1.0) / (2 * SIGMA_23_8AM * SIGMA_23_8AM) ; 
for(i = 0; i < INT_SIZE; 

{ 

dO - datati]; 
dl - data [i+1] ; 
if(i & 0x4) 

d2 = Encl [i] ; 
else 

d2 = Enc2 [i] ; 



tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2) ) 
rx = tx + SIGMA_23_8AM * gasdev(); 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp <n* (rx-1. 5) * (rx-1. 5) ) + 
exp (n* (rx-2. 5)* (rx-2. 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) )/ 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp (n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp (n* (rx-2. 5)* (rx-2. 5) )+exp(n* (rx-3 . 5 ) * ( rx-3 . 5 ) ) )/ 
(exp(n* (rx+1. 5)* (rx+1. 5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1. 5) * (rx-1. 5) ) ) ) ; 

H2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp ( n* { rx-1 . 5 ) * ( rx-1 . 5 ) ) +exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) ) / 
(exp(n* (rx+3.5)* (rx+3.5) )+exp(n* (rx+0 .5) * (rx+0. 5) ) + 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-3 .5) * (rx-3. 5) ) ) ) ; 



Dl_data[i] = L_d0; 
Dl_data[i+1] = L_dl; 
if(i & 0x4) 
{ 

Dl_parity[i] = L_d2; 
Dl_parity[i+1] = 0; 
D2_parity[i] = 0; 
D2__parity[i+1] = 0; 

} 

else 
{ 

Dl_parity[i] = 0; 
Dl__parity [i+1] = 0; 
D2_parity[i] = L_d2; 
D2_parity [i+1] = 0; 

} 



i++; 

} 

#endif 
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#ifdef R35_32QAM 
/* 

* I dimension: 

* dO is MSB and d2 is LSB in 8-AM: (dO, dl, d2) : 

* 010 — 011 001 000—100—101—111 — 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* Q dimension: 

* dO is MSB and dl is LSB in a 4-AM: (d0,dl) : 

* 01 00 10 11 

* -1.5 -0.5 0.5 1.5 
* 

* We transmit one 8AM symbol and one 4AM symbol 

* 6 info bits and 4 parity bits are mapped to 2 

* INT_SIZE to be a multiple of 6 
*/ 

forfi = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1: 8AM */ 
dO = data [i] ; 
dl = data[i+2] ; 

d2 = Encl[i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? {d2-0 . 5) : (0 . 5-d2) ) 
rx = tx + SIGMA_8AM_of_32QAM * gasdev(); 

n = (-1.0) / (2 * S I GMA_8 AM_0 f _3 2 QAM * SIGMA_8AM_of_32QAM) ; 

log { (exp (n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) } +exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5) ) + 
exp(n* (rx+2.5) * (rx+2.5) ) +exp (n* ( rx+3 . 5 ) * (rx+3 . 5 ) ) ) ) ; 

log ( { exp < n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
( exp (n* (rx+1. 5)* (rx+1. 5) )+exp(n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp (n* ( rx-1 . 5 ) * (rx-1.5) ) ) ) ; 

log ( ( exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+ 1 . 5 } * ( rx+1 . 5 ) ) + 
exp (n* (rx-1 . 5 ) * (rx-1 . 5) ) +exp (n* (rx-2 . 5) * (rx-2 . 5) ) ) / 
(exp(n* (rx+3. 5)* (rx+3. 5) )+exp(n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp<n* (rx-3.5) * (rx-3.5) ) ) ) ; 
Dl_data[i] = L_d0; 

Dl_data[i+2] = L_dl; 
Dl_parity[i] = L_d2; 
Dl_parity [i+1] = 0.0; 
Dl_parity[i+2] = 0.0; 
D2_parity[i] = 0.0; 
D2_parity [i+2] = 0.0; 

/* symbol 2: 4AM */ 
dO = data [i+1] ; 
dl - Enc2 [i+1] ; 

tx = dO - dl + 2*d0*dl - 0.5; 
rx = tx + S I GMA_4 AM_o f _3 2QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_4AM_0f_32QAM * SIGMA_4AM_of_32QAM) ; 
L_d0 - log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5) )) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5) ) ) ); 
L_dl = log ( (exp (n* (rx+1. 5) * (rx+1. 5) ) +exp (n* (rx-1.5) * (rx-1.5) ) ) / 
( exp (n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) ) ) ; 
Dl_data[i+1] = L_d0; 
D2_parity [i+1] = L_dl; 

/* symbol 3: 8AM */ 
dO = data[i+3] ; 
dl = data[i+5] ; 

d2 = Enc2 [i+4] ; 

tx - 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2) 
rx = tx + S I GMA_8 AM_o f _3 2 QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_8AM_of_32QAM * SIGMA_8AM_of_32QAM) ; 



to emulate a 32QAM symbol. 
32QAM symbols. 



L dO = 



L dl = 



L d2 = 
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log( (exp (n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* (rx-2 .5) * (rx-2 .5) ) +exp (n* (rx-3 . 5) * {rx-3 . 5) ) ) / 
(exp(n* (rx+0.5)* (rx+0.5) )+exp(n* (rx+1.5)* (rx+1.5) ) + 
exp ( n* ( rx+2 . 5 ) * { rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) ) ) ; 

log ( ( exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp { n* { rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp (n* (rx-2. 5) * (rx-2. 5) )+exp<n* (rx-3. 5) * (rx-3. 5) ) ) / 
(exp (n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp (n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-1 . 5) * (rx-1 .5) ) ) ) ; 

log( (exp(n* (rx+2 .5) * (rx+2. 5) ) +exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp (n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2 . 5) * (rx-2 . 5) ) ) / 
( exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* ( rx-0 . 5 ) * (rx-0 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) ) ; 
Dl_data[i+3] = L_dO; 
Dl_data[i+5] - L_dl; 
Dl_parity[i+4] = 0.0; 
Dl_parity[i+5] = 0.0; 
D2_parity [i+3] = 0.0; 
D2_parity[i+4] = L_d2; 
D2_parity [i+5] = 0.0; 

/* symbol 4: 4AM */ 
dO = data [i+4] ; 
dl = Encl[i+3] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + S I GMA_4 AM_o f _3 2 QAM * gasdev(); 

n = (-1.0) / (2 * S I GMA_4 AM_o f _3 2 QAM * SIGMA_4AM_of _32QAM) ; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 .5) * (rx-1.5) ) ) / 

(exp(n* (rx+0.5)* (rx+0.5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5) ) ) ) ; 
L_dl = log( (expfn* (rx+1.5) * (rx+1.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) ) / 

(exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx+0 . 5) * (rx+0 . 5 ) ) ) ) ; 
Dl_data[i+4] = L_d0; 
Dl_parity [i+3] - L_dl; 

i = i+5; 

} 

flendif 



flifdef R46_64QAM_TTCM_VoCAL 



/* 


Option 4 




* 
* 


Channel: I & Q defined as 


— 1 1- 


* 


-1 1 1 1 1 1 — 

-3.5 -2.5 -1.5 -0.5 0.5 1.5 


2.5 3.5 


* 


the 64QAM symbol is defined as: (ul, u2, 


u3, u4, u5, u6) 


* 


where u4 = dO 






u3 = dl 




* 


u2 = pO parity from ENC_H 






ul = ql parity from ENC_V 






u5 = d uncoded 




* 


u6 = d uncoded 






Use s4096v interleaver - only first 2048 


bits are interleaved 


* 


/ 





n = (-1.0) / (2 * SIGMA_46_64QAM * SIGMA_46_64QAM) ; 
for(i = 0; i < INT_SIZE/2 -1;) 
{ 

/* Encode only first half of INT_SIZE 

* dO, dl, d2, d3,... up to INT_SIZE/2 - 1 

* pO, 0, p2, 0, .. . 

* 0, ql, 0, q3, . . . 

*/ 

u4 = data[i] ; 
u3 = data[i+l] ; 
u2 = Encl [i] ; 
ul - Enc2 [i+13 ; 
u5 = data[i+INT_SIZE/2] ; 
u6 = data[i+INT_SIZE/2+l] ; 

k - u6+2*u5+4*u4+8*u3+16*u2+32*ul; 



L dO = 



L dl = 



L d2 = 



14 



COMPUTER PROGRAM LISTING APPENDIX 

tx_I = find_tx_I (k) ; 
tx_Q = find_tx_Q(k) ; 

rx_I = tx_I + SIGMA_46_64QAM * gasdev(); 
rx_Q = tx_Q + SIGMA_46_64QAM * gasdevO; 

L_dO - log({exp(n*({rx_I+3.5)*(rx_I+3.5) + {rx_Q-3 .5) * (rx_Q-3 . 5) ) ) + 

exp(n* ( (rx_I+1.5)* (rx_I+1.5) + <rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp(n*(<rx_I-0.5)*(rx_I-0.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp(n* ( (rx_I-2.5) * (rx_I-2.5) + (rx_Q-3 . 5 ) * ( rx_Q-3 . 5 ) ) ) + 

exp(n* ( (rx_I+2.5) * (rx_I+2.5) + (rx_Q-2 . 5) * < rx_Q-2 . 5) ) ) + 

exp(n*((rx_I+0.5)*(rx_I+0.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp(n* ( (rx_I-1.5)*(rx_I-1.5) + (rx_Q-2 . 5) * ( rx_Q-2 . 5) ) ) + 

exp(n*({rx_I-3.5)*(rx_I-3.5) + (rx_Q-2 .5) * (rx_Q-2 .5) ) ) + 

exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q-l . 5) * (rx_Q-l .5) ) ) + 

exp(n*( (rx_I+1.5)* (rx_I+1.5) + (rx_Q-1.5) * (rx_Q-l .5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q-l .5) * (rx_Q-l .5) ) ) + 

exp(n* { (rx_I-2.5) * (rx_I-2.5) + (rx_Q-l . 5 ) * (rx_Q-l .5) ) ) + 

exp<n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q-0.5) * (rx_Q-0 .5) ) ) + 

exp{n* ( (rx_I+0.5) * (rx_I+0.5) + ( rx_Q-0 . 5 ) * (rx_Q-0 . 5 ) ) ) + 

exp(n* ( (rx_I-1.5)*(rx_I-1.5) + (rx_Q-0.5) * (rx_Q-0.5) ) ) + 

exp{n*((rx_I-3.5)*(rx_I-3.5) + (rx_Q-0.5) * (rx_Q-0.5) ) ) + 

exp<n*((rx_I+3.5)*(rx__I+3.5) + < rx_Q+0 . 5 ) * (rx_Q+0 . 5 ) ) ) + 

exp(n* ( (rx_I+1.5) * (rx_I+1.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5 ) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n*((rx_I-2.5)*(rx_I-2.5) + (rx_Q+0 .5) * (rx_Q+0 . 5) ) ) + 

exp{n*( (rx_I+2.5)* (rx_I+2.5) + (rx_Q+l .5) * (rx_Q+l .5) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+l . 5) * <rx_Q+l . 5) ) ) + 

exp(n*<(rx__I-l,5)*(rx_I-1.5) + {rx_Q+l . 5) * <rx_Q+l . 5} ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3.5) + (rx_Q+l . 5) * { rx_Q+l . 5 } ) ) + 

exp(n*( <rx_I+3.5)*(rx_I+3.5) + (rx_Q+2 .5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I+1.5) * (rx_I+1.5) + (rx_Q+2 .5) * (rx_Q+2 .5) ) ) + 

exp(n*((rx_I-0.5)*(rx_I-0.5) + (rx_Q+2 .5) * {rx_Q+2 .5) ) ) + 

exp(n* ( (rx_I-2.5) * (rx_I-2.5) + (rx__Q+2 . 5 ) * (rx_Q+2 . 5 ) ) ) + 

exp(n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q+3 .5) * (rx_Q+3 .5) ) ) + 

exp(n*< (rx_I+0.5)*(rx_I+0.5) + (rx_Q+3 . 5 ) * (rx_Q+3 . 5 ) ) ) + 

exp(n*( (rx_I-1.5)*(rx_I-1.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5 ) ) ) + 
exp(n*( (rx_I-3.5)*(rx_I-3.5) + (rx_Q+3.5) * (rx_Q+3.5) ) ) ) / 

(exp(n* ( (rx_I+2.5) * (rx_I+2.5) + ( rx_Q-3 . 5 ) * (rx_Q-3 . 5 ) > ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + {rx_Q-3 . 5) * (rx_Q-3 .5) ) ) + 

exp<n*((rx_I-1.5)*<rx_I-1.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5 ) ) ) + 

exp{n*({rx_I-3.5)*(rx_I-3.5) + (rx_Q-3 .5} * (rx_Q-3 . 5} ) ) + 

exp(n*(<rx_I+3.5)*(rx_I+3.5) + ( rx_Q-2 . 5) * ( rx_Q-2 . 5 ) ) ) + 

exp(n* ( (rx_I+1.5>* (rx_I+1.5) + {rx_Q-2 . 5) * (rx_Q-2 .5) ) ) + 

exp(n*((rx_I-0.5)*{rx_I-0.5) + (rx_Q-2 . 5) * (rx_Q-2 .5) ) ) + 

exp(n*(<rx_I-2.5)*{rx_I-2.5) + (rx_Q-2 .5) * <rx_Q-2 . 5) ) ) + 

exp(n* ( (rx_I+2.5) * (rx_I+2.5) + (rx_Q-l .5) * (rx_Q-l . 5) ) ) + 

exp(n*( (rx_I+0.5)* (rx_I+0.5) + (rx_Q-l .5) * (rx_Q-1.5) ) ) + 

exp(n*( (rx_I-1.5)*{rx_I-1.5) + (rx_Q-l .5) * (rx_Q-l . 5) ) ) + 

exp(n*( {rx_I-3.5)*{rx_I-3.5) + (rx_Q-1.5) * (rx_Q-1.5) ) ) + 

exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q-0 .5) * (rx_Q-0 .5) ) ) + 

exp(n*( (rx_I+1.5)* (rx_I+1.5) + (rx_Q-0 .5) * (rx_Q-0 .5) ) ) + 

exp(n*( (rx_I-0.5)* (rx_I-0.5) + (rx_Q-0 .5) * (rx__Q-0 .5) ) ) + 

exp(n*( (rx_I-2.5)*(rx_I-2.5) + (rx_Q-0 . 5 ) * (rx_Q-0 . 5) ) ) + 

exp(n*( (rx_I+2.5)*(rx_I+2.5) + (rx_Q+0.5) * (rx_Q+0.5) ) ) + 

exp{n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+0.5) * (rx_Q+0. 5) ) ) + 

exp(n*( (rx_I-1.5)*(rx_I-1.5) + <rx_Q+0.5) * (rx_Q+0. 5) ) ) + 

exp(n* ( <rx_I-3.5) * (rx_I-3.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n*({rx_I+3.5)*(rx_I+3.5) + <rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n*({rx_I+1.5)*(rx_I+1.5) + (rx_Q+l .5) * (rx_Q+l . 5) ) ) + 

exp(n*< (rx_I-0.5)* (rx_I-0.5) + ( rx_Q+l . 5 ) * ( rx_Q+l . 5) ) ) + 

exp{n*((rx_I-2.5)*{rx_I-2.5) + (rx_Q+l . 5) * <rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I+2.5) * (rx_I+2.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n*((rx_I+0.5)*(rx_I+0.5) + (rx_Q+2 . 5} * (rx_Q+2 . 5) ) ) + 

exp(n*( (rx_I-1.5)* (rx_I-1.5) + (rx_Q+2 .5) * (rx_Q+2 . 5) ) ) + 

exp(n*( (rx_I-3.5)*(rx_I-3.5) + (rx_Q+2 .5) * (rx_Q+2 .5) ) ) + 

exp(n*( (rx_I+3.5) * (rx_I+3.5) + (rx_Q+3 .5) * (rx_Q+3 .5) ) ) + 

exp(n*({rx_I+1.5)*(rx_I+1.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n*< (rx_I-0.5)*(rx__I-0.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 
exp(n* ( (rx_I-2.5) * (rx_I-2.5) + (rx_Q+3 . 5 ) * (rx_Q+3 . 5 ) ) ) ) ) ; 
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L dl = log ( (exp (n* ( { rx_I+3 . 5 ) * (rx_I+3 . 5 ) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q-3 . 5) * { rx_Q-3 . 5) ) ) + 
exp(n*<(rx_I+1.5)*(rx_I+1.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*((rx_I+0.5)*(rx__I+0.5) + ( rx_Q-3 . 5 ) * <rx_Q-3 . 5) ) ) + 
exp(n*({rx_I-0.5)*(rx_I-0.5) + ( rx_Q-3 . 5 ) * [rx_Q-3 . 5 ) ) ) + 
exp(n*( (rx_I-1.5)*(rx_I-1.5) .+ {rx_Q-3 . 5 ) * (rx_Q-3 . 5 ) ) ) + 
exp(n*( (rx_I-2.5)*(rx_I-2.5) + <rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*((rx_I-3.5)*(rx_I-3.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*((rx_I+3.5)*(rx_I+3.5) + (rx_Q-1.5)* (rx_Q-1.5) ) ) + 
exp{n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q-l. 5) * (rx_Q-l .5) ) ) + 
exp(n*((rx_I+1.5)*(rx_I+1.5) + (rx_Q-1.5) * (rx_Q-1.5) ) ) + 
exp(n*({rx_I+0.5)*(rx_I+0.5) + (rx_Q-1.5)* (rx_Q-1.5) ) ) + 
exp(n*( (rx_I-0.5)*(rx_I-0.5) + (rx_Q-1.5) * (rx_Q-1.5) ) ) + 
exp(n*({rx_I-1.5)*(rx_I-1.5) + (rx_Q-l .5) * (rx_Q-1.5) ) ) + 
exp(n*( (rx_I-2.5)*(rx_I-2.5) + <rx_Q-l .5) * (rx_Q-l . 5) ) ) + 
exp(n*( (rx_I-3.5)*{rx_I-3.5) + (rx_Q-1.5) * (rx_Q-1.5) ) ) + 
exp<n*< (rx_I+3.5)*<rx_I+3.5) + (rxj2+0.5) * (rx_Q+0 .5) ) ) + 
exp(n*( (rx_I+2.5)*(rx_I+2.5) + (rx_Q+0 . 5 ) * (rx_Q+0 . 5 ) ) ) + 
exp(n*t(rx_I+1.5)*(rx_I+1.5) + (rx_Q+0.5) * (rx_Q+0.5) ) ) + 
exp(n*( (rx_I+0.5)*{rx_I+0.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5 ) ) ) + 
exp(n*( {rx_I-0.5)* (rx_I-0.5) + (rx_Q+0 .5) * (rx_Q+0 .5) ) ) + 
exp(n*{(rx_I-1.5)*(rx_I-1.5) + (rx_Q+0 .5) * (rx_Q+0 . 5) ) ) + 
exp(n*((rx_I-2.5)*(rx_I-2.5) + (rx_Q+0.5) * (rx_Q+0 .5) ) ) + 
exp(n*( (rx_I-3.5)* (rx_I-3.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 
exp(n*( (rx_I+3.5)*(rx_I+3.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 
exp(n*({rx_I+2.5)*(rx_I+2.5) + (rx_Q+2 .5) * (rx_Q+2 . 5) ) ) + 
exp(n*( (rx_I+1.5)*(rx_I+l-5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 
exp(n*({rx_I+0.5)*(rx_I+0.5> + (rx_Q+2 .5) * (rx_Q+2 .5) ) ) + 
exp<n*((rx_I-0.5)*(rx_I-0.5) + (rx_Q+2 .5) * (rx_Q+2 . 5) ) ) + 
exp(n*((rx_I-1.5)*(rx_I-1.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 
exp(n*((rx_I-2.5)*(rx_I-2.5) + (rx_Q+2 .5) * (rx_Q+2 .5) ) ) + 
exp(n*( (rx_I-3.5)*(rx_I-3.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) ) / 
(exp(n*({rx_I+3.5)*(rx_I+3.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
exp(n*( (rx_I+2.5)*{rx_I+2.5) + <rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
exp(n*((rx_I+1.5)*(rx_I+1.5) + (rx_Q-2 . 5) * ( rx_Q-2 . 5) ) ) + 
exp(n*((rx_I+0.5)*(rx_I+0.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
exp(n*( (rx_I-0.5)*(rx_I-0.5) + (rx_Q-2 . 5) * ( rx_Q-2 . 5) ) ) + 
exp(n*((rx - I-1.5)*(rx_I-1.5) + (rx_Q-2. 5) * (rx_Q-2 .5) ) ) + 
exp(n*((rx_I-2.5}*(rx_I-2.5) + (rx_Q-2 . 5) * <rx_Q-2 . 5) ) ) + 
exp{n*((rx_I-3.5)*(rx_I-3.5) + ( rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
exp(n*((rx_I+3.5)*(rx_I+3.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 
exp(n*( (rx_I+2.5)*(rx_I+2.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 
exp(n*( (rx_I+1.5)*{rx_I+1.5) + <rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 
exp<n* ( (rx_I+0.5)*(rx_I+0.5) + (rx_Q-0 . 5) * { rx_Q-0 . 5) ) ) + 
exp<n*((rx_I-0.5)*(rx_I-0.5) + (rx_Q-0.5) * (rx_Q-0.5) ) ) + 
exp(n*((rx_I-1.5)*(rx_I-1.5) + (rx_Q-0 . 5) * <rx_Q-0 . 5 ) > ) + 
exp(n*((rx_I-2.5)*(rx_I-2.5) + (rx_Q-0 .5) * (rx_Q-0.5) ) ) + 
exp(n*( (rx_I-3.5)*(rx_I-3.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 
exp(n*((rx_I+3.5)*(rx_I+3.5} + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 
exp(n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 
exp(n*((rx_I+1.5)*(rx_I+1.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 
exp{n*{(rx_I+0.5)*(rx_I+0.5) + (rx_Q+1.5)*(rx_Q+1.5) ) ) + 
exp(n* ( (rx_I-0.5}*(rx_I-0.5) + (rx_Q+l . 5 ) * (rx_Q+l . 5 ) ) ) + 
exp(n*((rx_I-1.5)*(rx_I-1.5) + (rx_Q+1.5)* (rx_Q+1.5) ) ) + 
exp(n*( (rx_I-2.5)*(rx_I-2.5) + (rx_Q+l . 5) * (rx_Q+l . 5 ) ) ) + 
exp(n*((rx_I-3.5)*(rx_I-3.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 
exp(n*((rx_I+3.5)*(rx_I+3.5) + (rx_Q+3 . 5) *(rx_Q+3 . 5) ) ) + 
exp(n*( (rx_I+2.5)*(rx_I+2.5) + (rx_Q+3 . 5 ) * { rx_Q+3 . 5) ) ) + 
exp(n*{(rx_I+1.5)*(rx_I+1.5) + (rx_Q+3.5) * (rx_Q+3.5) ) ) + 
exp(n*((rx_I+0.5)*(rx_I+0.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5 ) ) ) + 
exp(n*<(rx_I-0.5)*(rx_I-0.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 
exp(n*((rx_I-1.5)*(rx_I-1.5) + <rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 
exp(n*( (rx_I-2.5)*(rx__I-2.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 
exp<n*((rx_I-3.5)*(rx_I-3.5) + {rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) ) ) ; 

L d2 = log((exp(n*({rx_I+1.5)*(rx_I+1.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5 ) ) ) + 
exp(n*((rx_I+0,5)*(rx_I+0.5) + <rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*((rx_I-2.5)*(rx_J-2.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*((rx_I-3.5)*(rx_I-3.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*((rx_I+1.5)*(rx_I+1.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
exp(n*{ (rx_I+0.5)*(rx_I+0.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
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exp (n* ( (rx_I-2 .5) * (rx_I-2 .5) 
exp(n*( <rx_I-3.5)* (rx_I-3.5) 
exp(n* ( (rx_I+3.5) * <rx_I+3.5) 
exp(n* ( (rx_I+2.5)* (rx_I+2.5) 
exp(n* { (rx_I-0.5) * (rx_I-0.5) 
exp(n* ( (rx_I-1.5) * (rx_I-1.5) 
exp(n*{ (rx__I+3.5)* (rx_I+3.5) 
exp<n* ( (rx_I+2.5) * (rx_I+2.5) 
exp ( n* ( ( r x_I - 0 . 5 ) * ( r x_I -0.5) 
exp(n*( (rx_I-1.5)* (rx_I-1.5) 
exp (n* ( (rx_I-3 . 5 ) * (rx_I-3 . 5 ) 
exp(n* { (rx_I-2.5) * (rx_I-2.5) 
exp(n* ( (rx_I+l-5) * (rx_I+1.5) 
exp(n*( (rx_I+0.5)* (rx_I+0.5) 
exp(n* ( (rx_I+0.5)* (rx_I+0.5) 
exp (n* ( (rx_I+l . 5 ) * { rx_I+l .5) 
exp(n*( (rx_I-2.5)* (rx_I-2.5) 
exp(n* ( (rx_I-3.5)* (rx_I-3.5) 
exp(n* { (rx_I+3.5)* (rx_I+3.5) 
exp <n* ( { rx_I+2 . 5 ) * ( rx_I+2 . 5 ) 
exp (n* { ( rx_I-l . 5 ) * (rx_I-l .5) 
exp{n* ( {rx_I-0.5)*(rx_I-0.5) 
exp (n* ( (rx_I-0 . 5) * ( rx_I-0 .5) 
exp(n*( (rx_I-1.5)* (rx_I-1.5) 
exp (n* ( ( rx_I+2 . 5 ) * ( rx_I+2 . 5 ) 
exp ( n* ( ( rx_I+3 . 5 ) * ( rx_I+3 . 5 ) 
(exp{n* ( (rx_I+3.5) * (rx_I+3.5) 
exp ( n* ( ( rx_I+2 . 5 ) * ( rx_I+2 . 5 ) 
exp {n* ( { rx_I-0 . 5 ) * ( rx_I-0 . 5 ) 
exp(n*( (rx_I-1.5)*(rx_I-1.5) 
exp ( n* ( ( rx_I+3 . 5 ) * ( rx_I+3 . 5 ) 
exp(n* ( (rx_I+2.5>* (rx_I+2.5) 
exp(n* { (rx_I-0.5) * (rx_I-0.5) 
exp(n* ( (rx_I-1.5)*{rx_I-1.5) 
exp ( n* ( ( rx_I+l . 5 ) * ( rx_I+l . 5 ) 
exp (n* ( { rx_I+0 . 5 ) * ( rx_I+0 . 5 ) 
exp ( n* ( ( rx_I-2 . 5 ) * { rx_I -2 . 5 ) 
exp (n* ( { rx_I-3 . 5 ) * ( rx_I-3 . 5 ) 
exp(n* ( (rx_I+1.5) * (rx_I+1.5) 
exp(n* ( (rx_I+0.5) * (rx_I+0.5) 
exp{n* ( (rx_I-2.5) * (rx_I-2.5) 
exp(n* ( (rx_I-3.5) * (rx_I-3.5) 
exp(n* ( (rx_I-1.5) *(rx_I-1.5) 
exp (n* ( (rx_I-0 .5) * (rx_I-0 .5) 
exp (n* ( (rx_I+2 .5) * (rx_I+2 .5) 
exp(n* ( (rx_I+3.5) * (rx_I+3.5) 
exp(n* ( (rx_I+3.5)*(rx_I+3.5) 
exp(n* ( (rx_I+2.5) * (rx_I+2.5) 
exp(n* ( <rx_I-0.5) * (rx_I-0.5) 
exp(n* ( (rx_I-1.5) * (rx_I-1.5) 
exp(n* ( (rx_I+1.5)*(rx_I+1.5) 
exp (n* ( (rx_I+0.5) * (rx_I+0.5) 
exp ( n* ( ( rx_I -2 . 5 ) * ( rx_I -2.5) 
exp<n* ( (rx_I-3.5) * (rx_I-3.5) 
exp (n* ( ( rx_I-3 . 5 ) * (rx_I-3 . 5 ) 
exp{n* ( (rx_I-2.5) * <rx_I-2.5) 
exp (n* ( (rx_l+0.5) * (rx_l+0.5) 
exp (n* ( (rx_I+1.5) * (rx_I+l .5) 

L_d3 = log((exp<n*((rx_I+3.5)*(rx_I+3.5) 
exp ( n* < ( rx_I +2 . 5 ) * ( rx_I +2.5) 
exp ( n* { ( rx_I+l . 5 ) * ( rx_I +1 . 5 ) 
exp ( n* ( ( rx_I+0 . 5 ) * { rx_I+0 . 5 ) 
exp(n* ( (rx_I-0.5) * (rx_I-0.5) 
exp (n* ( (rx_I-l . 5) * (rx_I-l .5) 
exp (n* ( (rx_I-2 . 5) * (rx_I-2 .5) 
exp(n*( (rx_I-3.5)* (rx_I-3.5) 
exp(n* ( (rx_I+3.5) * (rx_I+3.5) 
exp(n* { (rx_I+2.5) * (rx_I+2.5) 
exp(n* ( (rx_I+1.5) * (rx_I+1.5) 
exp ( n* ( ( rx_I+0 . 5 ) * ( rx_I+0 . 5 ) 



+ (rx_Q-2.5)*(rx_Q-2.5) )) + 
+ <rx_Q-2.5)*(rx_Q-2.5) ) ) + 
+ (rx_Q-1.5)* (rx_Q-1.5) ) ) + 
+ (rx_Q-1.5)*{rx_Q-1.5) ) ) + 
+ (rx_Q-1.5)*(rx_Q-1.5))) + 
+ (rx_Q-1.5)*(rx_Q-1.5))) + 
+ (rx_Q-0.5)*(rx_Q-0.5) ) ) + 
+ {rx_Q-0.5)*(rx_Q-0.5) )) + 
+ (rx_Q-0.5)*(rx_Q-0.5))) + 
+ (rx_Q-0.5) * (rx_Q-0.5) ) ) + 
+ (rx_Q+0.5)*<rx_Q+0.5>) ) + 
+ (rx_Q+0.5)*(rx_Q+0.5))) + 
+ (rx_Q+0.5) * (rx_Q+0.5) ) ) + 
+ (rx_Q+0.5)*(rx_Q+0.5) ) ) + 
+ (rx_Q+1.5)*(rx_Q+1.5) ) ) + 
+■ (rx_Q+1.5)*(rx_Q+1.5))) + 
+ (rx_Q+1.5)*(rx_Q+1.5))> + 
+ (rx_Q+1.5)* (rx_Q+1.5) ) ) + 
+ (rx_Q+2.5)*(rx_Q+2.5))) + 
+ (rx_Q+2.5)*(rx_Q+2.5))) + 
+ (rx_Q+2.5)*(rxJ2+2.5))) + 
+ (rx_Q+2.5)*(rx_Q+2.5) )) + 
+ (rx_Q+3.5) * (rx_Q+3.5) ) ) + 
+ (rx_Q+3.5)*{rx_Q+3.5) ) ) + 
+ (rx_Q+3.5) * (rx_Q+3.5) ) ) + 
+ (rx_Q+3.5)*(rx_Q+3.5)})) / 
+ (rx_G-3.5)*(rx_Q-3.5))) + 
+ <rx_Q-3.5)*(rx_Q-3.5))) + 
+ (rx_Q-3.5)*(rx__Q-3.5) ) ) + 
+ (rx_Q-3.5)*(rx_Q-3.5))) + 
+ (rx_Q-2.5)*(rx_Q-2.5) ) ) + 
+ (rx_Q-2.5) * (rx_Q-2.5) ) ) + 
+ (rx_Q-2.5) * (rx_Q-2.5) ) ) + 
+ (rx_Q-2.5)*(rx_Q-2.5))) + 
+ (rx_Q-1.5)*(rxj2-1.5))) + 
+ (rx_Q-1.5)*(rx_Q-1.5))> + 
+ (rx_Q-1.5)*(rx_Q-1.5) ) ) + 
+ (rx_Q-1.5)*(rx_Q-1.5))) + 
+ (rx_Q-0.5)* (rx_Q-0.5) ) ) + 
+ (rx_Q-0.5) * (rx_Q-0.5) ) ) + 
+ <rx_Q-0.5)*{rx_Q-0.5)) ) + 
+ (rx_Q-0.5)* (rx_Q-0.5) ) ) + 
+ (rx_Q+0.5)*(rx_Q+0.5)) ) + 
+ (rx_Q+0.5)*(rx_Q+0.5) ) ) + 
+ (rx_Q+0.5)*(rxj2+0.5))) + 
+ (rx_Q+0.5)*{rx_Q+0.5) ) ) + 
+ (rx_Q+1.5)* (rx_Q+1.5) ) ) + 
+ (rx_Q+1.5)*(rx_Q+1.5))) + 
+ (rx_Q+1.5)*(rx_Q+1.5) ) ) + 
+ (rx_Q+1.5)*(rx_Q+1.5))) + 
+ (rx_Q+2.5)*(rx_Q+2.5) ) ) + 
+ (rx_Q+2.5)* (rx_Q+2.5) ) ) + 
+ (rx_Q+2.5)*(rx_Q+2.5) ) ) + 
+ (rx_Q+2.5)* (rx_Q+2.5) ) ) + 
+ (rx_Q+3.5)*(rx_Q+3.5)} ) + 
+ (rx_Q+3.5)* (rx_Q+3.5) ) ) + 
+ (rx_Q+3.5)*(rx_Q+3.5)) ) + 
+ (rx_Q+3.5)*(rx_Q+3.5))))); 

+ (rx_Q-1.5)*(rx_Q-1.5))) + 

+ (rx_Q-1.5)*{rx_Q-1.5) ) ) + 

+ (rx__Q-1.5)*(rx_Q-1.5)) ) + 

+ (rx_Q-1.5)*(rx_Q-1.5))) + 

+ (rx_Q-1.5)*(rx_Q-1.5))) + 

+ (rx_Q-1.5)*(rx_Q-1.5))) + 

+ (rx_Q-1.5)*(rx_Q-1.5)>) + 

+ (rx_Q-1.5)*(rx_Q-1.5) ) ) + 

+ (rx_Q-0-5)*(rx_Q-0.5) ) ) + 

+ (rx_G-0.5)*(rx_Q-0.5))) + 

+ (rx_Q-0.5)*(rx_Q-0.5) ) ) + 

+ (rx_Q-0.5)*(rx_Q-0.5) )) + 
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exp(n*<{rx_I-0.5)*(rx_I-0.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 
exp(n*((rx_I-1.5)*(rx_I-1.5) + {rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 
exp(n*( (rx_I-2.5)*(rx_I-2.5) + {rx_Q-0 . 5) * <rx_Q-0 . 5 ) ) ) + 
exp(n*((rx_I-3.5)*(rx_I-3.5) + (rx_Q-0 . 5) * ( rx__Q-0 . 5) ) ) + 
exp{n*{(rx_I+3.5)*<rx_I+3.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 
exp(n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q+2 .5) * (rx_Q+2 .5) ) ) + 
exp(n*((rx_I+1.5)*(rx_I+1.5) + (rx_Q+2 . 5} * (rx_Q+2 . 5) ) ) + 
exp<n*(<rx_I+0.5)*(rx_J+0.5) + (rx_Q+2 . 5) * { rx_Q+2 . 5 ) ) ) + 
exp(n*( (rx_I-0.5)*(rx_I-0.5) + (rx_Q+2 . 5) * ( rx_Q+2 . 5) ) ) + 
exp(n*((rx_I-1.5)*(rx__I-1.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 
exp(n*((rx_I-2.5)*(rx_I-2.5) + ( rx_Q+2 . 5 ) * (rx_Q+2 . 5 ) ) ) + 
exp(n*((rx_I-3.5)*(rx_I-3.5) + (rx_Q+2 . 5) * (rx_Q+2 .5) ) ) + 
exp(n*((rx_I+3.5)*(rx_I+3.5) + (rx_Q+3 . 5) * ( rx_Q+3 . 5 ) ) ) + 
exp(n*( (rx_I+2.5)*(rx_I+2.5) + (rx_Q+3.5) * (rx_Q+3.5) ) ) + 
exp(n*( (rx_I+1.5)*(rx_I+1.5) + (rxj2+3 .5) * {rx_Q+3 .5) ) ) + 
exp(n*((rx_I+0.5)*(rx_I+0.5) + (rx_Q+3 . 5 ) * (rx_Q+3 . 5) ) ) + 
exp(n*( (rx_I-0.5)*{rx_I-0.5) + (rx_Q+3 . 5) * (rx_Q+3 .5) ) ) + 
exp(n*((rx_I-1.5)*(rx_I-1.5) + ( rx_Q+3 . 5) * (rx_Q+3 . 5 ) ) ) + 
exp(n*((rx_I-2.5)*(rxJE-2.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 
exp(n*( (rx_I-3.5)*{rx_I-3.5) + (rx_Q+3 . 5} * ( rx_Q+3 . 5 ) ) ) ) / 
(exp(n*( (rx_I+3.5)*(rx_I+3.5) + (rx_Q-2 . 5) * (rx_Q-2 .5) ) ) + 
exp(n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q-2.5) * (rx_Q-2.5) ) ) + 
exp(n*((rx_I+1.5)*(rx_I+1.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
exp(n*((rx_I+0.5)*(rx_I+0.5) + <rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
exp<n*({rx_I-0.5)*(rx_I-0.5) + {rx_Q-2 . 5) * ( rx_Q-2 . 5 ) ) ) + 
exp(n*((rx_I-1.5)*(rx_I-1.5) + (rx_Q-2 .5) * (rx_Q-2 . 5) ) ) + 
exp(n*( (rx_I-2.5)*(rx_I-2.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
exp(n*( (rx_I-3.5)*(rx_I-3.5) + (rx_Q-2 . 5) * <rx_Q-2 . 5) ) ) + 
exp(n*( (rx_I+3.5)*(rx_I+3.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*({rx_I+2.5)*(rx_I+2.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*((rx_I+1.5)*(rx_I+1.5) + { rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*( (rx_I+0.5)*(rx_I+0.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp(n*( (rx_I-0.5)*(rx_I-0.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 
exp{n*((rx_I-1.5)*(rx_I-1.5) + (rx_Q-3 . 5) * {rx_Q-3 . 5) ) ) + 
exp<n*((rx_I-2.5)*(rx_I-2.5) + <rx_Q~3 . 5) * (rx_Q-3 . 5) } ) + 
exp(n*((rx_I-3.5)*(rx_I-3.5) + (rx_Q-3 . 5) * (rx_Q-3.5) ) ) + 
exp(n*((rx_I+3.5)*(rx_I+3.5) + (rx_Q+1.5) * (rx_Q+1.5) ) ) + 
exp(n*( (rx_I+2.5)*(rx_I+2.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 
exp(n*((rx_I+1.5)*(rx__I+1.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 
exp{n*((rx_I+0.5)*{rx_I+0.5) + (rxJ2+1.5) * (rx_Q+1.5) ) > + 
exp{n*((rx_I-0.5)*(rx_I-0.5) + <rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 
exp(n*((rx_I-1.5)*(rx_I-1.5) + (rx_Q+1.5) * (rx_Q+1.5) ) ) + 
exp(n*((rx_I-2.5)*(rx_I-2.5) + (rx_Q+l . 5) * (rx_Q+l . 5 ) ) ) + 
exp(n*( (rx_I-3.5)*(rx_I-3.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 
exp(n*((rx_I+3.5)*(rx_I+3.5) + (rx_Q+0.5) * (rx_Q+0.5) ) ) + 
exp(n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 
exp(n*((rx_I+1.5)*(rx_I+1.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 
exp{n*((rx_I+0.5)*(rx_I+0.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 
exp(n*((rx_I-0.5)*(rx_I-0.5) + (rx_Q+0 .5) * (rx_Q+0.5) ) ) + 
exp(n*((rx_I-1.5)*(rx_I-1.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 
exp(n*{(rx_I-2.5)*(rx_I-2.5) + (rx_Q+0. 5) * {rx_Q+0 .5) ) ) + 
exp(n*({rx_I-3.5)*{rx_I-3.5) + (rx_Q+0.5) * (rx_Q+0.5) ) ) ) ) 

Dl_data[i] = L_d3; 

Dl_data[i+1] = L_d2; 
Dl_data[i + INT_SIZE/2j = rx_I; 

Dl_data[i + INT_SIZE/2 + 1] = rx_Q; 
Dl_parity[i] = L_dl; 
Disparity [i+1] = 0; 
D2_parity[i] = 0; 
D2_parity[i+1] = L_d0; 

i = i + 2; 



} 

#endif 



#ifdef R4 6_64QAM_TTCM_Ungerboeck_Map 

/* Option3: conventional set partitioning used in TCM 
* Channel: I & Q defined 
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* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* the 64QAM symbol is defined as: (ul, u2, u3, u4, u5, u6) 



* where 





u6 


= dO 




* 


u5 


= dl 






u4 


= d2 




* 


u3 


- d3 




* 


u2 


= pO parity 


from ENC_H 


* 


ul 


= ql parity 


from ENC_V 


*/ 








/* 









* deinterleave data: 



*/ 

ford = 0; i < INT_SIZE; i++) 

data_d[i] = data[i]; 
r_deileava (data_d, rule) ; 

n = (-1.0) / (2 * SIGMA_4 6_64QAM * SIGMA_4 6_64QAM) ; 
ford = 0; i < INT_SIZE; ) 

{ 

/* Puncturing patern is: 

* dO, dl, d2, d3, . . . 

* pO, 0, 0, 0, . . . 

* 0, 0, q2, 0,... 
*/ 



ul = Encld] ; 
u2 = Enc2 [i] ; 
u6 = data_d[i+3] ; 
u5 - data_d[i+2]; 
u4 = data_d[i+l] ; 
u3 = data_d[i] ; 

k = u6+2*u5+4*u4+8*u3+16*u2+32*ul; 



tx_l = find_tx_I (k) ; 
tx_Q = find__tx_Q(k) ; 

rx_I = tx_I + SIGMA_4 6_64QAM * gasdevO; 
rx _Q = tx_Q + SIGMA_4 6_64QAM * gasdev(); 



L dO 



(exp (n* 
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exp (n* C (rx_I-l .5) * (rx_I-1.5) 
exp(n* ( (rx_I-2.5) * (rx_I-2.5) 
exp(n*( (rx_I-3.5)* (rx_I-3.5) 
exp (n* ( ( rx__I+3 . 5 ) * ( rx_I+3 . 5 ) 
exp(n* ( (rx__I+2.5) * (rx_I+2.5) 
exp (n* ( ( rx_I+l . 5 ) * (rx_I+l . 5 ) 
exp(n* ( (rx_I+0.5) * (rx_I+0.5) 
exp (n* { ( rx_I-0 . 5) * (rx_I-0 . 5 ) 
exp(n* ( (rx_I-1.5)*(rx_I-1.5) 
exp(n* ( (rx_I-2.5) * (rx_I-2.5) 
exp(n* ( (rx_I-3.5) * (rx_I-3.5) 
exp(n* ( (rx_I+3.5)* (rx_I+3.5) 
exp (n* ( ( rx_I+2 . 5 ) * { rx_I+2 . 5 ) 
exp(n*( (rx_I+1.5)* (rx_I+1.5) 
exp(n* ( (rx__I+0.5)* (rx_I+0.5) 
exp<n* ( (rx_I-0.5)* (rx_I-0.5) 
exp (n* { (rx__I-l . 5) * (rx_I-l .5) 
exp (n* ( ( rx_I-2 . 5 ) * ( rx_I-2 . 5 ) 
exp{n* ( (rx_I-3.5)*(rx_I-3.5) 
exp ( n* ( ( rx_I +3 . 5 ) * ( rx_I+3 . 5 ) 
exp (n* ( (rx_I+2.5) * (rx_I+2.5) 
exp ( n* ( ( rx_I +1 . 5 ) * { rx__I+l . 5 ) 
exp (n* ( (rx_I+0.5) * (rx_I+0.5) 
exp(n* ( (rx_I-0.5) * (rx_I-0.5) 
exp<n* ( (rx_I-1.5) * (rx_I-l .5) 
exp (n* ( ( rx_I-2 . 5 ) * ( rx_I-2 . 5 ) 
exp(n* ( (rx_I-3.5)*(rx_I-3.5) 

L_d2 = log( (exp(n* ( (rx_I+1.5) * (rx_I+1.5) 
exp(n* ( (rx_I+0.5>* (rx_I+0.5) 
exp (n* ( ( rx_I-2 . 5 ) * ( rx_I-2 . 5 ) 
exp(n* ( (rx_I-3.5) * (rx_I-3.5) 
exp(n* ( (rx_I+1.5) * (rx_I+1.5) 
exp (n* ( ( rx_I+0 . 5 ) * ( rx_I+0 . 5 ) 
exp (n* ( { rx_I-2 . 5 ) * ( rx_I-2 . 5 } 
exp(n* ( (rx_I-3.5)*(rx_I-3.5) 
exp (n* ( (rx_I+3.5) * (rx_I+3.5) 
exp ( n* ( ( rx_I+2 . 5 ) * ( rx_I+2 . 5 ) 
exp(n* ( (rx_I-0.5) * (rx_I-0.5) 
exp (n* ( (rx_I-1.5) * (rx_I-l .5) 
exp (n* ( (rx_I+3. 5) * (rx_I+3 .5) 
exp(n* ( (rx_I+2.5) * (rx_I+2.5) 
exp(n* ( (rx_I-0.5) * (rx_I-0.5) 
exp (n* ( (rx__I-l .5) * (rx_I-1.5) 
exp(n* ( (rx_I-3.5) * (rx_I-3.5) 
exp (n* ( { rx_I-2 . 5 ) * ( rx_I-2 . 5 ) 
exp(n* ( (rx_I+1.5)*(rx_I+1.5) 
exp(n* ( {rx_I+0.5) * (rx_I+0.5) 
exp (n* ( { rx_I+0 . 5 ) * ( rx_I+0 . 5 ) 
exp (n* ( (rx_I+1.5) * (rx_I+1.5) 
exp(n* ( (rx_I-2.5) * (rx_I-2.5) 
exp(n* ( (rx_I-3.5) * (rx_I-3.5) 
exp (n* ( (rx_I+3 .5) * (rx_I+3 .5) 
exp ( n * ( ( r x_I+2 . 5 ) * ( rx_I +2.5) 
exp (n* ( ( rx_I-l . 5 ) * ( rx_I-l . 5 ) 
exp(n* { (rx_I-0.5) * <rx_I-0.5) 
exp(n* ( (rx_I-0.5) * (rx_I-0.5) 
exp(n* ( (rx_I-1.5)* (rx_I-1.5) 
exp(n*( (rx_I+2.5)* (rx_I+2.5) 
exp(n* ( (rx_I+3.5) * (rx_I+3.5) 
<exp(n* ( (rx_I+3.5) * (rx_I+3.5) 
exp{n* ( (rx_I+2.5) * (rx_I+2.5) 
exp(n* ( (rx_I-0.5) * (rx_I-0.5) 
exp {n* ( { rx_I-l . 5) * ( rx_I-l . 5 ) 
exp ( n* ( { rx_I +3 .5)*(rx_I+3.5) 
exp (n* ( (rx_I+2.5) * (rx_I+2.5) 
exp (n* ( (rx_I-0.5) * (rx_I-0.5) 
exp ( n * ( ( r x_I - 1 . 5 ) * ( r xJL -1.5) 
exp(n* ( (rx_I+1.5) * (rx_I+1.5) 
exp{n* ( (rx_I+0.5) * (rx_I+0.5) 
exp(n* ( (rx_I-2.5) * (rx_I-2.5) 



+ (rx_Q-2.5)*(rx_Q-2.5) )) + 

+ (rx_Q-2.5) * (rx_Q-2.5) ) ) + 

+ (rx_Q-2.5)*(rx_Q-2.5) )) + 

+ (rx_Q-0.5)* (rx_Q-0.5) ) ) + 

+ (rx_Q-0.5)*(rx_Q-0.5) )} + 

+ (rx_Q-0.5)*(rx_Q-0.5))) + 

+ (rx_Q-0.5) * (rx_Q-0.5) ) ) + 

+ (rx_Q-0.5)*(rx_Q-0.5))) + 

+ (rx_Q-0.5)*(rx_Q-0.5) )) + 

+ (rx_Q-0.5)*(rx_Q-0.5) ) ) + 

+ (rx_Q-0.5)*(rx_Q-0.5) )) + 

+ (rx_Q+1.5)*(rx_Q+1.5))) + 

+ (rx_Q+1.5)*(rx_Q+1.5))) + 

+ (rx_Q+1.5)*(rx_Q+1.5))) + 

+ (rx_Q+1.5)*(rx_Q+1.5))) + 

+ (rx_Q+1.5)*(rx_Q+1.5))) + 

+ (rx_Q+l-5)*(rx_Q+1.5))) + 

+ (rx_Q+1.5)*(rx_Q+1.5))) + 

+ (rx_Q+1.5)*(rx_Q+1.5))) + 

+ (rx_Q+3.5)*(rx_Q+3.5) ) ) + 

+ (rx_Q+3.5)*<rx_Q+3.5) ) ) + 

+ (rx_Q+3.5)*(rx_Q+3.5))) + 

+ (rx_Q+3.5)*(rx_Q+3.5))) + 

+ (rx_Q+3.5)*(rx_Q+3.5))) + 

+ (rx_Q+3.5)*(rx_Q+3.5))) + 

+ (rx_Q+3.5)*(rx_Q+3.5))) + 

+ (rx_Q+3.5)*(rx_Q+3.5))))); 

+ (rx__Q-3.5)*{rx_Q-3.5)) ) + 
+ <rx_Q-3.5)*(rx_Q-3.5))) + 
+ <rx_Q-3.5)*(rx_Q-3.5))) + 
+ (rx_Q-3.5)*<rx_Q-3.5)) ) + 
+ (rx_Q-2.5) * (rx_Q-2.5) ) ) + 
+ (rx_Q-2.5)*(rx_Q-2.5) ) ) + 
+ (rx_Q-2.5)*(rx_Q-2.5))) + 
+ (rx_Q-2.5) * (rx_Q-2.5) ) ) + 
+ (rx_Q-1.5)*(rx_Q-1.5) ) ) + 
+ (rx_Q-1.5)*(rx_Q-1.5))) + 
+ (rx_Q-1.5)*(rx_Q-1.5) ) ) + 
+ (rx_Q-1.5)* (rx_Q-1.5) ) ) + 
+ (rx_Q-0.5)*{rx_Q-0.5)) ) + 
+ (rx_Q-0.5)*(rx_Q-0.5))) + 
+ (rx_Q-0.5)*(rx_Q-0.5)) ) + 
+ (rx_Q-0.5) * <rx_Q-0.5) ) ) + 
+ (rx_Q+0.5) * (rx_Q+0.5) ) ) + 
+ (rx_Q+0.5)*(rx_Q+0.5) ) ) + 
+ (rx_Q+0.5)*(rx_Q+0.5) ) ) + 
+ (rx_Q+0.5) * (rx__Q+0.5) ) ) + 
+ (rx_Q+1.5)*(rx_Q+1.5))) + 
+ (rx_Q+1.5) * (rx_Q+1.5) ) ) + 
+ (rx_Q+1.5)*{rx_Q+1.5)) ) + 
+ (rx_Q+1.5)*(rx_Q+1.5))) + 
+ (rx_Q+2.5)*(rx_Q+2.5)) ) + 
+ (rx_Q+2.5)*(rx_Q+2.5))) + 
+ (rx_Q+2.5)*(rx_Q+2.5))) + 
+ (rx_Q+2.5)* (rx_Q+2.5) ) ) + 
+ (rx_Q+3.5)*(rx_Q+3.5) ) } + 
+ (rx_Q+3.5)*{rx_Q+3.5) ) ) + 
+ (rx_Q+3.5)*(rx_Q+3.5)) ) + 
+ {rx_Q+3.5)*(rx_Q+3.5)) )) / 
+ (rx_Q-3.5)*(rx_Q-3.5) ) ) + 
+ {rx_Q-3.5)*(rx_Q-3.5))) + 
+ (rx_Q-3.5)*(rx_Q-3.5))} + 
+ (rxj2-3.5)*(rx_Q-3.5) ) ) + 
+ (rx_Q-2.5)*(rx_Q-2.5))) + 
+ (rx_Q-2.5)*(rx_Q-2.5) ) ) + 
+ (rx_Q-2.5)*(rx_Q-2.5))) + 
+ (rx_Q-2.5)*(rx_Q-2.5)) ) + 
+ {rx__Q-1.5)*{rx_Q-1.5))) + 
+ (rx_Q-1.5)*(rx_Q-1.5>)) + 
+ (rx_Q-1.5)*(rx_Q-1.5))) + 
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exp ( n* { < rx_I - 3 . 5 ) * { r x_I -3 . 5 ) 
exp(n* C (rx_I+1.5) * (rx_I+1.5) 
exp { n* ( { r x_I + 0 . 5 ) * { r x_I +0 . 5 ) 
exp(n*( (rx_I-2.5)* (rx_I-2.5) 
exp(n*( (rx_I-3.5)* (rx_I-3.5) 
exp(n* ( (rx_I-1.5) * (rx_I-1.5) 
exp(n*< (rx_I-0.5)* (rx_I-0.5) 
exp(n* ( (rx_I+2.5)* (rx_I+2.5) 
exp(n* { <rx_I+3.5) * (rx_I+3.5) 
exp(n*( (rx_I+3.5)*(rx_I+3.5) 
exp<n* ( (rx_I+2.5)* (rx_I+2.5) 
exp(n*{ (rx_I-0.5)* (rx_I-0.5) 
exp(n*( {rx_I-1.5)* (rx_I-1.5) 
exp(n* ( (rx_I+1.5)* (rx_I+1.5) 
exp ( n* ( ( rx_I +0 . 5 ) * { rx_I+0 . 5 ) 
exp (n* ( (rx_I-2 . 5 ) * (rx_I-2 . 5 ) 
exp (n* ( (rx_I-3 . 5) * (rx_I-3 .5) 
exp(n* ( (rx_I-3.5) * (rx_I-3.5) 
exp(n* ( (rx_I-2.5) * (rx_I-2.5) 
exp (n* ( ( rx_I+0 . 5 ) * ( rx_I+0 . 5 ) 
exp(n* { (rx_I+1.5) * (rx_I+1.5) 

L_d3 = log((exp(n*({rx_I+3.5)*(rx_I+3.5) 
exp ( n* { { rx_I+2 . 5 ) * ( rx_I+2 . 5 ) 
exp <n* ( (rx_I+l . 5 ) * ( rx_I+l .5) 
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5) 


* (rx 


1+2. 


5) 


+ 


exp (n* ( {rx 


Til 

1 + 1 . 


5) 


* (rx_ 


T4-1 

IT! . 


3 / 




exp (n* ( (rx 


T 1 A 

I + U . 


5) 


* (rx_ 


T lf| 

1 + U . 


3 ) 


+ 


exp (n* ( (rx 


1-0 . 


5) 


* (rx_ 


t n 
1 U . 


e; ^ 
3 J 


+ 


exp (n* ( (rx 


I-l . 


5) 


* (rx 


T 1 
1-1 . 


0 / 


+ 


exp (n* ( (rx_ 


1-2 . 


5) 


* (rx_ 


T O 


O ) 


+ 


exp (n* ( (rx_ 


1-3 . 


5) 


*{rx 


I- J . 


c \ 
0 J 


+ 


log ( (exp (n* ( (rx 


_I+3 


.5) * (rx 


1+3 


• 5) 


+ 


exp (n* ( (rx_ 


1+2 . 


5) 


* (rx_ 


1+2 . 


0 ) 


+ 


exp (n* ( ( rx_ 


1+1 . 


5) 


* (rx 


I + l . 


5 ) 




exp (n* ( (rx 


1+0 . 


5) 


*(rx_ 


I+U . 


3 } 


+ 


exp (n* ( (rx_ 


1+3 - 


5) 


* (rx 


1+3 . 


5 ) 


+ 


exp (n* ( (rx_ 


1+2 . 


5) 


*(rx 


T _l_0 

1+2. . 


D ) 


+ 


exp (n* ( ( rx_ 


1+1 . 


5) 


*(rx_ 


1 + 1 . 


3 ) 


+ 


exp (n* ( (rx_ 


1+0 . 


5) 


* (rx 


1+0 . 


5) 


+ 


exp (n* ( (rx_ 


1+3 . 


5) 


*(rx 


_I+3 . 


5) 


+ 


exp (n* ( (rx_ 


1+2 


5) 


*(rx_ 


1+2 . 


5 ) 


+ 


exp (n* { (rx 


1+1 


5) 


* (rx_ 


I+l . 


5) 


+ 


exp (n* ( (rx_ 


1+0 


5) 


* (rx 


_I+0 . 


5) 


+ 


exp (n* ( (rx_ 


1+3 


5) 


*<rx_ 


1+3 . 


5) 


+ 


exp (n* ( (rx_ 


1+2 


5) 


* (rx 


1+2 . 


5) 


+ 


exp (n* ( (rx_ 


1+1 


5) 


* (rx 


1+1 . 


5) 


+ 


exp (n* ( (rx_ 


~1+Q 


5) 


* (rx 


1 + 0 . 


5) 


+ 


exp (n* ( (rx_ 


_I+3 


5) 


*(rx 


_I+3 . 


5) 


+ 


exp (n* ( (rx_ 


1+2 


5) 


* (rx_ 


_I+2 , 


5) 


+ 


exp (n* ( (rx_ 


_I+1 


5) 


* (rx" 


I+l . 


5) 


+ 


exp (n* ( (rx_ 


_I+0 


5) 


* (rx" 


_I+0 , 


5 ) 


+ 


exp(n* ( (rx_ 


_I+3 


5) 


* (rx" 


1+3 


5) 


+ 


exp (n* ( (rx_ 


~l+2 


5) 


* (rx" 


1+2 


5) 


+ 


exp (n* ( (rx_ 


"i+l 


5) 


* (rx" 


_I+1 


5) 


+ 


exp (n* ( (rx_ 


~I+0 


5) 


*(rx" 


_I+0 


5} 


+ 


exp (n* ( (rx_ 


~I+3 


.5) 


* (rx" 


_I+3 


5) 


+ 


exp (n* { (rx_ 


1+2 


.5) 


Mrx_ 


_I+2 


5) 


+ 


exp (n* { (rx_ 


I+l 


.5) 


* (rx" 


_I+1 


5) 


+ 


exp (n* ( (rx_ 


_I+0 


.5) 


* (rx 


1+0 


.5) 


+ 


exp (n* ( (rx_ 


_I+3 


.5) 


* (rx] 


1 + 3 


5) 


+ 


exp (n* ( (rx_ 


_I+2 


.5) 


* (rx] 


_I+2 


.5) 


+ 


exp (n* ( (rx_ 




.5) 


* (rx" 


_I + 1 


.5) 


+ 


exp (n* ( (rx_ 


_I+0 


.5) 


* (rx" 


1 + 0 


.5} 


+ 


(exp (n* ( (rx_ 


_I-3 


.5) 


* (rx 


1-3 


.5) 


+ 


exp (n* ( (rx_ 


_I-2 


.5) 


* (rx 


1-2 


. 5 ) 


+ 


exp (n* ( (rx_ 


_I-1 


.5) 


*(rx~ 


I-l 


.5) 


+ 


exp (n* ( (rx_ 


_I-0 


.5) 


* (rx 


1-0 


■ 5 ) 


+ 


exp (n* ( (rx_ 


_I-0 


.5) 


* (rx" 


1-0 


.5) 


+ 


exp (n* ( (rx_ 


_I-1 


.5) 


* (rx" 


I-l 


. 5 ) 


+ 


exp (n* ( (rx_ 


_I-2 


.5] 


* (rx" 


_I-2 


. 5 ) 


+ 


exp (n* ( (rx_ 


_I-3 


.5] 


*(rx" 


1-3 


• 5 ) 


+ 


exp (n* ( (rx_ 


_I-3 


.5 


*(rx~ 


1-3 


.5) 


+ 


exp (n* ( (rx_ 


_I-2 


.5 


* (rx" 


1-2 


• 5) 


+ 


exp (n* ( (rx_ 


_I-1 


.5 


* (rx" 


I-l 


.5) 


+ 


exp (n* ( ( rx_ 


1-0 


.5 


* (rx" 


1-0 


- 5) 


+ 


exp (n* ( (rx_ 


_I-0 


.5 


* (rx" 


1-0 


• 5) 


+ 


exp (n* ( (rx_ 


JE-l 


.5 


* (rx" 


_I-1 


.5) 


+ 


exp (n* ( (rx_ 


_I-2 


.5 


*(rx" 


_I-2 


• 5) 


+ 


exp (n* ( (rx_ 


1-3 


.5 


* (rx^ 


1-3 


. 5) 


+ 


exp (n* ( (rx_ 


1-3 


.5 


* (rx" 


1-3 


• 5) 


+ 


exp (n* ( (rx_ 




.5 


* (rx" 


T — 9 
1 — Z 


• o ) 


+ 


exp (n* ( ( rx_ 


I-l 


.5 


*(rx" 


T 1 
1-1 


• o } 


+ 


exp (n* ( ( rx 


1-0 


.5 


* (rx 


I— 0 


• 5 ) 


+ 


exp (n* ( (rx_ 


1-0 


.5 


* (rx' 


I— 0 


• 5 ) 


+ 


exp (n* ( ( rx_ 


T — 1 

1 — 1 


.5 


*(rx~ 


T-1 
1 J. 


. .j ) 




exp (n* ( (rx_ 


1-2 


.5 


*(rx" 


~I-2 


.5) 


+ 


exp (n* ( (rx 


1-3 


.5 


)*(rx~ 


1-3 


.5) 


+ 


exp (n* ( (rx 


1-3 


.5 


) * ( rx 


1-3 


.5) 


+ 


exp (n* ( (rx_ 


1-2 


.5 


) * (rx 


1-2 


.5) 


+ 


exp (n* ( (rx_ 


I-l 


.5 


) * ( rx 


I-l 


.5) 


+ 


exp (n* ( {rx 


1-0 


.5 


) *(rx 


1-0 


.5) 


+ 


exp (n* ( (rx_ 


1-0 


.5 


) * ( rx 


1-0 


.5) 


+ 



rx_Q-1.5)*(rx_Q-1.5))) + 

rx_Q-3.5) * (rx_Q-3.5) ) ) + 

rx_Q-3.5) * (rx_Q-3.5) ) ) + 

rx_Q-3.5)*(rx_Q-3.5))) + 

rx_Q-3.5)*(rx_Q-3.5>)) + 

rx_Q-3.5)*(rx_Q-3.5) ) ) + 

rx_Q-3.5)*(rx_Q-3.5))) + 

rx_Q-3.5)*(rx_Q-3.5) ) ) + 
rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) ) ) ; 

(rx__Q+3.5)* (rx_Q+3.5) ) ) + 

rx_Q+3.5)*(rx_Q+3.5))) + 

rx_Q+3.5) * (rx_Q+3.5) ) ) + 

rx_Q+3.5)*(rx_Q+3.5))) + 

rx_Q+2.5) * (rx_Q+2.5) ) ) + 

rx_Q+2.5)*{rx_Q+2.5))) + 

rx_Q+2.5) * (rx__Q+2.5) ) } + 

;rx_Q+2.5)*(rx_Q+2.5))) + 

;rx_Q+1.5)*(rx_Q+1.5) ) ) + 

;rx_Q+1.5)*(rx_Q+1.5))) + 

;rx_Q+1.5) * (rx_Q+1.5) ) ) + 

:rx__Q+1.5)*(rx_Q+1.5) ) ) + 

;rx_Q+0.5)*(rx_Q+0.5) ) ) + 

:rx_Q+0.5)*(rx_Q+0.5) ) ) + 

;rx_Q+0.5)*(rxj2+0.5))) + 

[rx__Q+0.5) * (rx_Q+0.5) ) ) + 

[rx_Q-0.5)*(rx_Q-0.5)) ) + 

[rx_Q-0.5)*{rx_Q-0.5))) + 

[rx_Q-0.5) * (rx_Q-0.5) ) ) + 

[rx_Q-0.5)*(rx_Q-0.5))) + 

[rx_Q-1.5)*(rx_Q-1.5))) + 

[rx_Q-1.5)*(rx_Q-1.5) ) ) + 

(rx_Q-1.5)*(rx_Q-1.5))) + 

(rx_Q-1.5)*(rx_Q-1.5))) + 

(rx_Q-2.5)*(rx_Q-2.5))) + 

(rx_Q-2.5) * (rx_Q-2.5) ) ) + 

(rx_Q-2.5) * (rx_Q-2.5) ) ) + 

(rx_Q-2.5)*(rx_Q-2.5))) + 

(rx_Q-3.5)*(rx_Q-3.5) )) + 

(rx_Q-3.5) * (rx_Q-3.5) ) ) + 

(rx_Q-3.5)*(rx_Q-3.5) ) ) + 
(rx_Q-3.5) * (rx_Q-3.5) ) ) ) / 

(rx_Q-3.5)*(rx_Q-3.5) ) ) + 

(rx_Q-3.5) * (rx_Q-3.5) ) ) + 

(rx_Q-3.5)*(rx_Q~3.5)> ) + 

(rx_Q-3.5)*(rx_Q-3.5)) ) + 

(rx_Q-2.5)*(rx_Q-2.5)) ) + 

(rx_Q-2.5)*(rx_Q-2.5))) + 

(rx_Q-2.5) * (rx_Q-2.5) ) ) + 

(rx_Q-2.5)*(rx_Q-2.5)) ) + 

(rx_Q-1.5)*(rx_Q-1.5))) + 

(rx_Q-1.5)*{rx_Q-1.5) ) ) + 

(rx_Q-1.5)*(rx_Q-1.5))) + 

(rx_Q-1.5)*(rx_Q-1.5))) + 

(rx_Q-0.5)*(rx_Q-0.5) ) ) + 

(rx_Q-0.5)*(rx_Q-0.5) ) ) + 

(rx_Q-0.5)*(rx_Q-0.5) )) + 

(rx_Q-0.5) * (rx_Q-0.5) ) ) + 

(rx_Q+0.5) * (rx_Q+0.5) ) ) + 

(rx_Q+0.5) * (rx_Q+0.5) ) ) + 

(rx_Q+0.5)*(rx_Q+0.5)) ) + 

(rx_Q+0.5) * (rx_Q+0.5) ) ) + 

(rx_Q+1.5)*(rx__Q+1.5)) ) + 

(rx_Q+1.5)*(rx_Q+1.5)}) + 

(rx_Q+1.5)* (rx_Q+1.5) ) ) + 

(rx_Q+1.5)*(rx_Q+1.5))) + 

(rx_G+2.5)*(rx_Q+2.5))) + 

(rx_Q+2.5)*(rx_Q+2.5))) + 

(rx_Q+2.5)* (rx_Q+2.5) ) ) + 

(rx_Q+2.5)* (rx_Q+2.5) ) ) + 

(rx_Q+3.5)* (rx_Q+3.5) ) } + 
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exp(n*( (rx_I-1.5)*(rx__I-1.5) + (rx_Q+3.5) * <rx_Q+3.5) ) ) + 
exp(n*( (rx_I-2.5)*(rx_I-2.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 
exp{n*< (rx_I-3.5)*(rx_I-3.5) + (rx_Q+3 . 5) * <rx_Q+3 . 5) ) ) ) ) ; 



Dl_data [i] 




L 


d2 ; 


Dl data[i+l] 


= 


if 


~d3; 


Dl_data[i+2] 




if 


]d4; 


Dl_data [i+3] 




L 


d5; 


Dl parityfi] 




L 


~d0; 


Dl_parity [i+1] 




o" 


"0; 


Dl_parity[i+2] 




0 


0; 


Dl_parity[i+3] 




0 


.0; 


D2 parityti] 




L 


dl; 


D2 parity[i+l] 




o" 


.0; 


D2_parity[i+2] 




0 


.0; 


D2_parity [i+3] 




0 


.0; 


i = i + 4; 









} 

/* 

* interleave data: 
*/ 

r_ileav(Dl_data, rule); 
#endif 



#ifdef R4 6_64QAM_IQ_Natural_Map 
/* Option2 

* Channel: I = (ul, u2, u3) , Q = (u4, u5, u6) defined using natural mapping 

* 000 001 010 Oil 100 101 110 111 



* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* the 64 QAM symbol is defined as: (ul, u2, u3, u4, u5, u6) 

* where: 

* ul = dO 

* u2 = dl 

* u3 = pO parity from ENC_V 

* u4 = d2 

* u5 = d3 

* u6 = qO parity from ENC_H 
* 

*/ 
/* 

* deinterleave data: 
*/ 

ford = 0; i < INT_SIZE; 

data_d[i] = data[i]; 
r_deileava (data_d, rule); 

n - (-1.0) / (2 * SIGMA_4 6_64QAM * SIGMA_4 6_64QAM) ; 

for(i = 0; i < INT_SIZE; ) 
{ 

/* Puncturing patern is : 

* dO, dl, d2, d3, . . . 

* pO, 0, 0, 0, . . . 

* qO, 0, 0, 0, . . . 
*/ 

ul = data_d[i] ; 
u2 = data_d[i+l] ; 
u3 = Encl [i] ; 
u4 = data_d[i+2] ; 
u5 = data_d[i+3] ; 
u6 = Enc2 [i] ; 

tx_I = -3.5 + u3 + 2*u2 +4*ul; 
tx_Q = -3.5 + u6 + 2*u5 +4*u4; 

rx_I = tx_I + SIGMA_4 6_64QAM * gasdevO; 
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rx_Q = tx_Q + SIGMA_46_64QAM * gasdevO; 



log { (exp (n* 


( (rx_ 


1-3 


. 5 ) * ( rx 


1-3 


.5)) )+ 


exp (n* { 


(rx 


1-2 . 


5) * (rx 


1-2 . 


5) ) 


+ 


exp (n* 


(rx_ 




5 ) * ( rx_ 


I-l . 


5) ) 


+ 


exp (n* 


( rx__ 


_I-0 . 


5 ) * ( rx_ 


1-0 . 


5) ) 


) / 


(exp (n* 


(rx 


1+3 . 


5) * (rx 


1+3 . 


5) ) 


+ 


exp (n* 


( rx_ 


1+2 . 


5 ) * ( rx_ 


1+2 . 


5) ) 


+ 


exp (n* 


(rx_ 


. 


5 ) * ( rx_ 


1+1 . 


5) ) 


+ 


exp (n* 


(rx 


I+Q . 


5 ) * ( rx_ 


1+0 . 


5) ) 


) ) 


log ( (exp (n* 


( (rx^ 


_I-3 


. 5 ) * ( rx 


1-3 


.5) ) 


) + 


exp (n* 


(rx 


1-2 . 


5 ) * ( rx_ 


1-2 . 


5) ) 


+ 


exp (n* 


(rx_ 


_I+1 . 


5 ) * { rx_ 


_I+1 . 


5) ) 


+ 


exp (n* 


(rx 


1+0 . 


5) * (rx 


_I+0 . 


5) ) 


) / 


(exp (n* 


(rx 


1+3. 


5)*(rx 


1+3 . 


5) ) 


+ 


exp (n* 


(rx_ 


'l+2. 


5)*(rx 


1+2 . 


5) ) 


+ 


exp (n* 


(rx_ 


"i-l. 


5)*(rx 


T "I 
I-l . 


5)) 


+ 


exp (n* 


(rx 


I-O. 


5)*(rx_ 


"i-O. 


5) ) 


) ) 


log { (exp (n* 


( (rx 


" 1-3 


.5) * (rx 


" 1-3 


.5) ) 


) + 


exp (n* 


{rx 


1+2. 


5) * (rx 


1+2. 


5)) 


+ 


exp (n* 


(rx_ 


"i-l. 


5) * (rx 


"i-l. 


5)) 


+ 


exp (n* 


(rx_ 


1+0. 


5)*(rx 


"i+O. 


5)) 


)/ 


(exp (n* 


(rx 


~I+3. 


5 ) * ( rx 


~I+3. 


5)) 


+ 


exp (n* 


(rx_ 


_I-2.5)*(rx_ 


"l-2. 


5) ) 


+ 


exp (n* 


(rx 


1+1 


5)*(rx 


"i+l. 


5)) 


+ 


exp (n* 


! (rx 


~I-0 


5)*(rx_ 


"i-O. 


5) ) 


) ) 



rx_I = rxj2; 

L_u4 = log( (exp(n* ( (rx_I-3.5) * (rx_I-3.5) ) )+ 



exp (n* 


(rx 


1-2. 


5) * (rx 


1-2. 


5) 


) + 


exp (n* 


(rx_ 


"i-l. 


5)*(rx 


"i-l. 


5) 


) + 


exp (n* 


(rx_ 


I-O. 


5) * (rx 


"i-O. 


5) 


))/ 


(exp (n* 


(rx_ 


1+3. 


5)*(rx 


"l+3. 


5) 


) + 


exp (n* 


(rx_ 


1+2. 


5) * (rx 


"l+2. 


5) 


) + 


exp (n* 


(rx_ 


I+l. 


5)*{rx 


"i+l. 


5) 


) + 


exp (n* 


(rx 


"i+O. 


5)*(rx 


"i+O. 


5) 


) ) ); 


log ( (exp (n* 


((rx 


1-3 


.5) * (rx 


1-3 


.5) 


) ) + 


exp (n* 


(rx 


1-2, 


5)*<rx" 


1-2. 


5) 


) + 


exp (n* 


(rx_ 


"i+l. 


5)*{rx 


"i+l. 


5) 


) + 


exp (n* 


(rx_ 


"i+O. 


5)*(rx 


"i+O. 


5) 


))/ 


(exp (n* 


(rx 


"l+3. 


5)*(rx 


"l+3. 


5) 


) + 


exp (n* 


(rx 


'l+2. 


5) * (rx 


"l+2. 


5) 


) + 


exp (n* 


(rx_ 


"i-l. 


5)*(rx 


"i-l. 


5) 


) + 


exp (n* 


(rx 


"i-O. 


5) * (rx 


"i-O. 


5) 


)))); 


log ( (exp (n* 


((rx 


"l-3 


.5) * (rx 


"l-3 


.5) 


)) + 


exp (n* 


( rx_ 


1+2. 


5) * (rx" 


1+2. 


5) 


)) + 


exp (n* 


(rx_ 


"i-l. 


5)*(rx 


"i-l. 


5) 


>) + 


exp (n* 


(rx 


"i+O 


5)*(rx 


"i+O. 


5) 


)))/ 


(exp {n* 


(rx 


"l+3. 


5)*(rx 


"l+3. 


5) 


)) + 


exp (n* 


(rx_ 


"l-2 


5)*(rx 


"l-2. 


5) 


)) + 


exp {n* 


(rx_ 


"i+l 


5)*(rx 


"i+l. 


5) 


>) + 


exp (n* 


[ (rx 


"i-O 


5}*(rx 


"i-O. 


5) 


) ) ) ) ; 



Dl_data[i] 






ul; 


Dl_data[i+1] 




l" 


u2; 


Dl_data[i+2] 




L 


"u4; 


Dl_data[i+3] 




if 


"u5; 


Dl_parity [i] 




l" 


~u3; 


Dl_parity[i+1] 




o" 


"0; 


Dl_parity[i+2] 




0 


0; 


Dl_parity[i+3] 




0 


0; 


D2_parity [i] 




L 


u6; 


D2_parity[i+1] 




o" 


"0; 


D2_parity[i+2] 




0 


0; 


D2_parity[i+3] 




0 


0; 


i = i + 4; 









} 

interleave data: 
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*/ 

r ileav(Dl data, rule); 



#endif 



#ifdef R 4 6_ 6 4 Q AM_I Q_G r a y _Map 

/* Optionl: used in "Parallel Concatenated Trellis Coded Modulation" ICC ' 96 

* Channel: I = (ul, u2, u3), Q = (u4, u5 r u6) defined using Gray mapping: 

* ul & u4 are MSBs and u3 & u6 are LSBs: 

* 010 Oil 001—000 100 101—111 — 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* where : 

* ul = dO 

* u2 = dl 

* u3 = pO parity from ENC_V 

* u4 = d2 

* u5 = d3 

* u6 = qO parity from ENC_H 
* 

* INT_SIZE = multiple of 4 
*/ 

n = (-1.0) / {2 * SIGMA_23_8AM * SIGMA_23_8AM) ; 
/* 

* deinterleave data: 
*/ 

for(i = 0; i < INT_SIZE; 

data_d[i] = datafi]; 
r deileava(data_d, rule); 



for{i - 0; i < INT_SIZE; ) 
{ 

/* Puncturing patern is: 

* dO, dl, d2, d3, . . . 

* pO, 0, 0, 0, . . . 

* qO, 0, 0, 0, . . . 
*/ 



ul = data_d[i] ; 
u2 = data_d[i+l] ; 
u3 = Encl [i] ; 

tx = 2*ul - 2*u2 + 4*ul*u2 - 1.0 + ( { (2*ul-l) * (2*u2-l) ) <0? (u3-0 . 5) : (0 . 5-u3) ) ; 
rx = tx + SIGMA_23_8AM * gasdev(); 

L_ul = log((exp(n*{rx-0.5)*(rx-0.5) )+exp(n*(rx-1.5)*(rx-1.5) ) + 
exp(n*(rx-2.5)*(rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
( exp <n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp (n* (rx+2.5) * (rx+2.5) ) +exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

L_u2 = log( (exp {n* (rx+3.5) * {rx+3 .5) ) +exp(n* (rx+2.5) * (rx+2.5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
(exp(n* (rx+1. 5) * (rx+1. 5) ) +exp (n* (rx+0. 5) * (rx+0 .5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_u3 = log((exp(n*(rx+2.5)*(rx+2.5) ) +exp(n* (rx+1.5) * (rx+1 . 5) ) + 
exp (n* (rx-1 . 5 ) * ( rx-1 . 5 ) ) +exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) ) / 
( exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) ) ; 

ul = data_d[i+2] ; 

u2 - data_d[i+3] ; 

u3 = Enc2 [i] ; 

tx = 2*ul - 2*u2 + 4*ul*u2 - 1.0 + ( ( (2*ul-l) * (2*u2-l) ) <0? (u3-0 . 5) : (0 . 5-u3) ) ; 
rx - tx + SIGI4A_23_8AM * gasdev(); 

L_u4 = log( (exp(n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-1 . 5)* (rx-1.5) ) + 
exp (n* (rx-2 . 5) * ( rx-2 . 5 ) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) / 
(exp(n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+1.5) * (rx+1 .5) ) + 
exp (n* ( rx+2 . 5) * (rx+2 . 5 ) ) +exp (n* (rx+3 . 5) * ( rx+3 . 5 ) ) ) ) ; 

L_u5 = log( (exp{n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+2.5) * (rx+2.5) ) + 



27 



COMPUTER PROGRAM LISTING APPENDIX 



exp (n* (rx-2 . 5) * (rx-2 . 5) ) +exp (n* (rx-3 . 5) * {rx-3 . 5 ) ) ) / 
( exp (n* ( rx+1 . 5} * ( rx+1 . 5 ) ) +exp (n* { rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* (rx-0.5) * (rx-0 .5) ) +exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_u6 = log ( (exp (n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx-1.5)* (rx-1.5) )+exp(n* (rx-2 .5) * (rx-2 . 5) ) ) / 
( exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp { n* ( rx+0 . 5 ) * { rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 



Dl_data[i] 




L 


ul; 


Dl data[i+l] 




L~ 


"u2; 


Dl_data[i+2] 




if 


u4; 


Dl_data[i+3] 




L_ 


_u5; 


Dl_parity [i] 




if 


u3; 


Dl_parity[i+1] 




o" 


~o? 


Dl_parity [i+2] 




0, 


.0; 


Dl_parity[i+3] 




0, 


.0; 


D2_parity [i] 




L 


u6; 


D2_parity[i+1] 




o" 


^0; 


D2_parity [i+2] 




0, 


.0; 


D2_parity[i+3] 




0, 


.0; 


i = i + 4; 









} 

/* 

* interleave data: 
*/ 

r_ileav (Dl_data, rule); 
#endif 



/*mio*/ 

#ifdef R24_4QAM 
/* 

* Channel: we transmit two 2-AM symbols to emulate a 4 -QAM symbol. 

* 2 info bits and 2 parity bits are mapped to 2 4 -QAM symbols which in 

* turn are simulated as 4 2-AM symbols to achieve lbit/s/Hz 
* 

* INT_SIZE to be a multiple of 2 



n = (-1.0) / (2 * SIGMA_24_4QAM * SIGMA_24_4QAM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data[i] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_24_4QAM * gasdevO; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))) / 

(exp (n* (rx+0. 5) * (rx+0. 5) ) ) ) ; 
Dl_data[i] = L_d0; 

/* symbol 2 */ 
dO = Encl [i] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_24_4QAM * gasdevO; 
L_dO = log ( (exp (n* (rx-0.5) * (rx-0.5) ) ) / 

(exp (n* (rx+0. 5) * (rx+0. 5) ) ) ) ; 
Dl_parity[i] = L_d0; 

/* symbol 3 */ 
dO = data[i+l] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_24_4QAM * gasdevO; 
L_d0 = log( (exp(n*(rx-0.5)*(rx-0.5)) ) / 

(exp(n* (rx+0. 5) * (rx+0. 5) ) ) ) ; 
Dl_data[i+1] = L_d0; 

/* symbol 4 */ 
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dO = Enc2 [i+1] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_24_4QAM * gasdev(); 
L_dO = log( (exp{n*(rx-0.5)*(rx-0.5) ) ) / 

(exp (n* (rx+0.5)* (rx+0.5)) ) ); 
D2_parity[i+1] = L_dO; 
Dl_parity[i+1] = 0.0; 
D2_parity[i] - 0.0; 
i = i+1; 

} 

#endif 
/*mio*/ 

#ifdef R2 6_4QAM 
/* 

* Channel: we transmit two 2-AM symbols to emulate a 4 -QAM symbol. 

* 2 info bits and 4 parity bits are mapped to 3 4 -QAM symbols which in 

* turn are simulated as 6 2-AM symbols to achieve Ibit/s/Hz 
* 

* INT_SIZE to be a multiple of 2 
*/ 

n = (-1.0) / (2 * SIGMA_26_4QAM * SIGMA_26_4QAM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data[i] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_2 6_4QAM * gasdevO; 
L_d0 = log( (exp(n*(rx-0.5)*(rx-0.5)) ) / 

(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i] = L_d0; 

/* symbol 2 */ 
dO = Encl[i] ; 
tx - dO - 0.5; 

rx = tx + SIGMA_26_4QAM * gasdevO; 
L_d0 = log( (exp (n* (rx-0.5) * (rx-0.5) ) ) / 

(exp (n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_parity[i] = L_d0; 

/* symbol 3 */ 
dO - Enc2 [i] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_2 5_4QAM * gasdev(); 
L_d0 = log( (exp (n* (rx-0.5)* (rx-0.5) )) / 

(exp (n* (rx+0.5) * (rx+0 .5) ) ) ) ; 
D2_parity[i] = L_d0; 

/* symbol 4 */ 
dO = data [i+1] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_26_4QAM * gasdevO; 
L_d0 = log( (exp(n* (rx-0.5)* (rx-0.5) ) ) / 

(exp{n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i+1] = L_d0; 

/* symbol 5 */ 
dO = Encl[i+1] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_26_4QAM * gasdevO; 
L_d0 = log( (exp (n* (rx-0.5)* (rx-0.5) ) ) / 

(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_parity [i+1] = L_d0; 

/* symbol 6 */ 
dO = Enc2 [i+1] ; 
tx - dO - 0.5; 

rx = tx + SIGMA_2 6_4QAM * gasdevO; 
L_d0 = log ( (exp (n* (rx-0.5) * (rx-0.5) ) ) / 
(exp(n* (rx+0.5)* (rx+0.5) ) ) ) ; 
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D2_parity[i+13 = L_dO; 
i = i+1; 

} 

lendif 
/*mio*/ 

ttifdef R46_8QAM 
/* 

* I dimension: 

* dO is MSB and dl is LSB in a 4-AM: (dO,dl) : 

* 01 00 10 11 

* -1.5 -0.5 0.5 1.5 

* Q dimension: 

* dO is MSB in a 2-AM: (dO) : 

* 0 1 

* -0.5 0.5 

* We transmit one 4A-M symbol and one 2-AM symbol to emulate a 32QAM symbol. 

* 4 info bits and 2 parity bits are mapped to 2 8 QAM symbols. 

* 

* INT_SIZE to be a multiple of 4 
*/ 

ford = 0; i < INT^SIZE; i++) 
{ 

/* symbol 1: 4AM */ 
dO = data[i] ; 
dl = Encl [i] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_4 6_8QAM * gasdevO; 

n = (-1.0) / (2 * S I GMA_4 AM_o f _4 6_8 QAM * SIGMA_4AM_of_46_8QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp (n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1.5) * (rx+1.5) ) ) ) ; 
L dl - iog((exp(n*(rx+1.5)*(rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx-0.5) * ( rx-0 . 5 ) ) +exp (n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i] = L_d0; 
Disparity [i] = L_dl; 

/* symbol 2: 2AM */ 
dO = data[i+l] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_2AM_of_46_8QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_2AM_of_4 6_8QAM * SIGMA_2AM_of_4 6_8QAM) ; 
L_d0 = log ( (exp (n* (rx-0. 5)* (rx-0. 5))) / 
(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i+1] = L_dO; 

/* symbol 3: 4AM */ 
dO - data[i+2] ; 
dl = Enc2[i+2] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_46_8QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_4AM_of_4 6_8QAM * SIGMA_4AM__of_46_8QAM) ; 
L_dO - log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

( exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 - 5 ) ) ) ) ; 
L dl = log((exp(n*(rx+1.5)*(rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

( exp (n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) ) ) ; 
Dl_data[i+2] = L_d0; 
D2_parity[i+2] = L_dl; 

/* symbol 2: 4AM */ 
dO = data[i+3] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_2AM_of_4 6_8QAM * gasdevO ; 

n = (-1.0) / (2 * SIGMA_2AM_of_46_8QAM * SIGMA_2AM_of_4 6_8QAM) ; 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) ) / 
(exp(n* (rx+0.5)* (rx+0.5) ) ) ) ; 

Dl_data[i+3] = L_d0; 
Dl_parity[i+1] = 0.0; 
Dl_parity[i+2] - 0.0; 
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Dl_parity[i+3] = 0.0; 

D2_parity[i] = 0.0; 
D2_parity [i+1] = 0.0; 
D2_parity[i+3] = 0.0; 

i = i+3; 

} 

Hendif 
/*mio*/ 

#ifdef R26_8QAM 
/* 

* I dimension: 

* dO is MSB and dl is LSB in a 4 -AM: (d0,dl) : 

* 01 00 10 11 

* -1.5 -0.5 0.5 1.5 

* Q dimension: 

* dO is MSB in a 2-AM: (dO) : 

* 0 1 

* -0.5 0.5 
* 

* 

* We transmit one 4A-M symbol and one 2-AM symbol to emulate a 8 QAM symbol. 

* 2 info bits and 4 parity bits are mapped to 2 8 QAM symbols. 
* 

* INT_SIZE to be a multiple of 2 
*/ 

ford = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1: 4AM */ 

dO = data[i] ; 
dl = Encl [i] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_2 6_8QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA__4AM__of_26_8QAM * SIGMA_4AM_of_26_8QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1.5) * (rx+1.5) ) ) ) ; 
L_dl = log((exp(n*(rx+1.5)*(rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

( exp (n* (rx-0. 5) *(rx-0. 5) )+exp(n* (rx+0.5)* (rx+0.5) ))); 

Dl_data[i] = L_d0; 
Dl_parity[i] = L_dl; 

/* symbol 2: 2AM */ 

dO = Enc2 [i] ; 
tx - dO - 0.5; 

rx = tx + S I GMA_2 AM_o f _2 6_8 QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_2AM_of_2 6_8QAM * SIGMA_2AM_of_26_8QAM) ; 
L_d0 - log( (exp(n* (rx-0.5) * (rx-0.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
D2_parity[i] = L_d0; 

/* symbol 3: 4AM */ 

dO = Encl[i+1] ; 
dl = Enc2[i+1] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_26_8QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_4AM_of_26_8QAM * SIGMA_4AM_of_26_8QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp (n* (rx+0.5)* (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) )) ) ; 
L_dl = log((exp(n*(rx+1.5)*(rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx-0.5) * (rx-0 .5) ) +exp (n* (rx+0. 5) * (rx+0.5) ) ) ) ; 
Disparity [i+1] = L_d0; 
D2_parity[i+1] - L_dl; 

/* symbol 4: 2AM */ 

dO = data[i+l] ; 
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tx = dO - 0.5; 

rx = tx + SIGMA__2AM_of_2 6_8QAM * gasdevO; 

n = (-1.0) / (2 * S I GMA_2 AM_o f _2 6_8 QAM * SIGMA_2AM_of_26_8QAM) ; 
L_dO = log( (exp (n* (rx-0.5) * (rx-0.5) ) ) / 
(exp(n* (rx+0.5)* (rx+0.5) } ) } ; 
Dl_data[i+1] = L_dO; 
i=i+l; 
} 

#endif 
/*mio*/ 

#ifdef R13_8QAM 
/* 

* I dimension: 

* dO is MSB and dl is LSB in a 4-AM: (d0,dl) : 

* Oi 00 10 11 

* -1.5 -0.5 0.5 1.5 

* Q dimension: 

* dO is MSB in a 2-AM: <d0) : 

* 0 1 

* -0.5 0.5 

* 

* We transmit one 4A-M symbol and one 2-AM symbol to emulate a 8 QAM symbol. 

* 1 info bits and 2 parity bits are mapped to 1 8 QAM symbols. 
* 

* INT_SIZE to be a multiple of 1 
*/ 

ford = 0; i < INT_SIZE; 
{ 

/* symbol 1: 4AM */ 

dO = data[i] ; 
dl = Encl[i] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_13_8QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA__4AM_of_13_8QAM * SIGMA_4AM_of_13_8QAM) ; 
L dO - log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1 .5) * (rx+1.5) ) ) ) ; 
L dl = log( <exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) ) / 

(exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx+0.5)* (rx+0.5) ) ) ) ; 
Dl_data[i] = L_d0; 
Dl_parity[i] = L_dl; 

/* symbol 2: 2AM */ 

dO = Enc2[i]; 
tx = dO - 0.5; 

rx = tx + SIGMA_2AM_of_13_8QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_2AM_of_13_8QAM * SIGMA_2AM_of_13_8QAM) ; 
L_d0 - log( {exp(n* (rx-0.5)* (rx-0.5) ) ) / 
(exp(n* (rx+0.5)* (rx+0.5) ) ) ) ; 
D2_parity[i] = L_d0; 

} 

#endif 
/*mio*/ 

#ifdef R412_16QAM 
/* 

* Channel: we transmit two 4-AM symbols to emulate a 16-QAM symbol. 

* 4 info bits and 8 parity bits are mapped to 3 16-QAM symbols which in 

* turn are simulated as 6 4-AM symbols to achieve 3bit/s/Hz 

* dO is MSB and dl is LSB in a 4-AM:(dO,dl) = 01 00— [—10 11 

-1.5 -0.5 0.5 1.5 

* INT_SIZE to be a multiple of 4 
*/ 

n = (-1.0) / (2 * SIGMA_412_16QAM * SIGMA_412_16QAM) ; 
ford = 0; i < INT_SIZE; i++) 
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/* symbol 1 */ 
dO = data[i] ; 
dl = Encl[i]; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L dO = log((exp(n*(rx-l)*(rx-l))+exp(n*(rx-3)*(rx-3))) / 
(exp (n* (rx+1) * (rx+1) ) +exp (n* (rx+3 ) * (rx+3) ) ) ) ; 

L_dl = log { (exp (n* (rx+3)* (rx+3) ) +exp (n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx-1) * (rx-1) ) +exp(n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i] - L_dO; 

Disparity [i] = L_dl; 

/* symbol 2 */ 
dO = data [i+1] ; 
dl = Encl [i+1] ; 

tx - 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L dO = log ( (exp (n* (rx-1) * (rx-1) ) +exp (n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L dl = log((exp(n*(rx+3)*(rx+3))+exp(n*(rx-3)*(rx-3))) / 
(exp (n* (rx-1) * (rx-1) ) +exp (n* (rx+1) * (rx+1 ) ) ) ) ; 

Dl_data[i+1] = L_d0; 

Dl_parity[i+1] = L_dl; 

/* symbol 3 */ 
dO - Enc2 [i] ; 
dl - Enc2 [i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L dO = log ((exp(n* (rx-1) * (rx-1) )+exp(n* (rx-3)* (rx-3))) / 
(exp (n* (rx+1) * (rx+1) ) +exp(n* (rx+3) * (rx+3) ) ) ) ; 

L dl = log((exp(n*(rx+3)*(rx+3))+exp(n*(rx-3)*(rx-3))) / 
(exp (n* (rx-1) * (rx-1) ) +exp (n* (rx+1) * (rx+1) ) ) ) ; 

D2_parity[i] = L_d0; 

D2jparity [i+1] = L_dl; 

/* symbol 4 */ 
dO = data[i+2] ; 
dl - Encl[i+2] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L_d0 = log ( (exp (n* (rx-1) * (rx-1) )+exp(n* (rx-3)* (rx-3))) / 
(exp (n* (rx+1) * (rx+1) }+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L dl = log ( (exp (n* (rx+3)* (rx+3) )+exp(n* (rx-3)* (rx-3))) / 
(exp(n* (rx-1) * (rx-1) ) +exp (n* (rx+1) * (rx+1 ) ) ) ) ; 

Dl_data[i+2] = L_d0; 

Disparity [i+2] - L_dl; 

/* symbol 5 */ 
dO = Enc2 [i+2] ; 
dl = Enc2[i+3] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L dO = log((exp(n*(rx-l)*(rx-l))+exp(n*(rx-3)*(rx-3))) / 
(exp (n* (rx+1) * (rx+1) ) +exp(n* (rx+3) * (rx+3) ) ) ) ; 

L dl = log ( (exp (n* (rx+3)* (rx+3) )+exp(n* (rx-3)* (rx-3))) / 
(exp (n* (rx-1) * (rx-1) ) +exp (n* (rx+1) * (rx+1) ) ) ) ; 

D2_parity[i+2] = L_d0; 

D2_parity[i+3] = L_dl; 

/* symbol 6 */ 
dO = data[i+3] ; 
dl = Encl[i+3] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L dO = log ( (exp (n* (rx-1) * (rx-1) )+exp(n* (rx-3)* (rx-3))) / 
(exp (n* (rx+1) * (rx+1) )+exp(n* (rx+3)* (rx+3) ) ) ) ; 

L dl = log ((exp(n* (rx+3)* (rx+3) )+exp(n* (rx-3)* (rx-3))) / 
(exp (ii* (rx-1) * (rx-1) ) +exp (n* (rx+1) * (rx+1) ) ) ) ; 

Dl data[i+3] = L_d0; 
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Dl_parity[i+3] = L_dl; 
i = i+3; 

} 

#endif 
/*mio*/ 

ttifdef R515_32QAM 
/* 

* I dimension: 

* dO is MSB and d2 is LSB in 8-AM: (dO, dl,d2) : 

* 010— Oil— 001— 000— 100— 101— - 111— 110 

* -3.5 -2.5 -1,5 -0.5 0.5 1.5 2.5 3.5 

* Q dimension: 

* dO is MSB and dl is LSB in a 4-AM: (d0,dl) : 

* 01 00 10 11 

* -1.5 -0.5 0.5 1.5 

* 

* We transmit one 8AM symbol and one 4AM symbol to emulate a 32QAM symbol. 

* 5 info bits and 10 parity bits are mapped to 3 32QAM symbols. 

* INT_SIZE to be a multiple of 5 
*/ 

for(i = 0; i < INT_SIZE; 
{ 

/* symbol 1: 8AM */ 
dO = data[i] ; 
dl = Encl[i] ; 

d2 = Enc2[i]; 

tx - 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 .5) : (0 .5-d2) ) 
rx = tx + SIGMA_8AM_of_515_32QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_8AM_of_515_32QAM * SIGMA_8AM_of_515_32QAM) ; 
L__d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 

exp(n* (rx-2.5) * ( rx-2 . 5 ) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 

exp(n*(rx+2.5)* £rx+2.5) )+exp(n* (rx+3 . 5) * (rx+3 . 5) ) ) ) ; 

L_dl = log<(exp<n*(rx+3.5)*(rx+3.5))+exp{n*{rx+2.5)*{rx+2.5)) + 
exp(n* (rx-2. 5)* (rx-2. 5) )+exp(n* (rx-3.5) * (rx~3.5) ) ) / 
(exp(n* {rx+1.5) * <rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_d2 - log((exp{n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp(n* (rx-1.5)* (rx-1.5) ) +exp (n* (rx-2 . 5) * (rx-2 . 5) ) )/ 
(exp (n* (rx+3. 5) * (rx+3 .5) ) +exp (n* (rx+0.5) * (rx+0.5) ) + 
expfn* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) ) ; 
Dl_data[i] = L_d°' 

Disparity [i] = L_dl; 

D2_parity[i] = L_d2; 

/* symbol 2: 4AM */ 
dO = data[i+l] ; 
dl = Encl[i+1]; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SI GMA_4 AM_of _5 1 5_3 2 QAM * gasdev ( ) ; 

n = (-1.0) / (2 * S I GMA_4AM_o f _5 1 5_3 2 QAM * SIGMA_4AM_of_515_32QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) ) ) ; 
L_dl = log((exp(n*<rx+1.5)*(rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx+0 . 5) * (rx+0 . 5) ) ) ) ; 
Dl_data[i+1] = L_dO; 
D2_parity[i+1] - L_dl; 

/* symbol 3: 8AM */ 
dO = dataEi+2] ; 
dl = Encl[i+2] ; 

d2 = Enc2[i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2 ) 
rx = tx + S I GMA_8 AM_o f _5 1 5_3 2 QAM * gasdevO; 
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(-1.0) / (2 * S I GMA_8 AMjo f _5 1 5__3 2 QAM * SIGMA_8AM_of_515_32QAM) ; 
log( (exp(n* (rx-O. 5) * (rx-0. 5) ) +exp (n* ( rx-1 . 5) * (rx-1 . 5) ) + 
exp (n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3 . 5 ) * (rx-3 . 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp{n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

log ( (exp(n* (rx+3 .5) * (rx+3.5) )+exp (n* (rx+2.5) * (rx+2 .5) ) + 
exp (n* (rx-2 . 5 ) * (rx-2 . 5 ) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) } / 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0. 5)* (rx-0. 5) ) +exp (n* (rx-1. 5) * (rx-1. 5) ) ) ) ; 

log( (exp(n* (rx+2 .5) * (rx+2.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* {rx-1. 5) * (rx-1 .5) ) +exp(n* (rx-2.5) * (rx-2.5) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+0.5)* (rx+0.5) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 
Dl__data[i+2] = L_dO; 
Disparity [i+2] = L_dl; 

D2_parity [i+1] *= L_d2; 

/* symbol 4: 4AM */ 
dO = data[i+3]; 
dl = Enc2 [i+2] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of 515_32QAM * gasdev(); 

n - (-1.0) / (2 * SIGMA_4AM_of_515_32QAM * SIGMA_JAM_of_515_32QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp (n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) ) } ; 
L_dl = log((exp(n*(rx+1.5)*(rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i+3] = L_d0; 
D2_parity [i+2] = L_dl; 

/* symbol 5: 8AM */ 
dO = data [i+4]; 
dl = Encl[i+3] ; 

d2 = Enc2[i+3]; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + { ( (2*d0-l) * (2*dl-l) ) <0? <d2-0 .5) : (0.5-d2) ) 
rx = tx + S I GMA_ 8 AM_o f _5 1 5_3 2 QAM * gasdevf); 

n = (-1.0) / (2 * SIGMA_8AM_of_515_32QAM * SIGMA_8AM_of_515_32QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 

exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 

exp{n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

L_dl = log( (exp(n* (rx+3.5)* (rx+3.5) )+exp(n* (rx+2.5) * (rx+2.5) ) + 
exp (n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3. 5) ) ) / 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx-1. 5) * (rx-1. 5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+2.5)* (rx+2.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx-1. 5) * (rx-1. 5) )+exp(n* (rx-2.5)* (rx-2.5) ) ) / 
(exp (n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp (n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 
Dl_data[i+4] = L_d0; 
Dl_parity[i+3] = L_dl; 

D2_parity[i+3] = L_d2; 

/* symbol 4: 4AM */ 
dO = End [i+4]; 
dl = Enc2 [i+4] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of 515_32QAM * gasdev ( ) ; 

n = (-1.0) / (2 * SIGMA_4AM_of_515_32QAM * SIGMA_4AM_of_515_32QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx+0 .5) * (rx+0.5) ) +exp(n* (rx+1.5) * (rx+1.5) ) ) ) ; 
L_dl = log( (exp(n* (rx+1.5) * (rx+1.5) ) +exp(n* (rx-1. 5) * (rx-1. 5) ) ) / 

(exp(n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx+0.5) * (rx+0.5) } ) ) ; 
Dl_parity[i+4] = L_d0; 
D2_parity[i+4] = L_dl; 

i = i+4; 



L dO = 



L dl = 



L d2 = 
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} 

#endif 
/*mio*/ 

#ifdef R26_64QAM 
/* 

* Channel: 

* dO is MSB and d2 is LSB in 8AM: (dO , dl , d2 } : 

* 010— Oil— 001— 000 — 100— 101— 111— 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

V 
/* 

* Channel: we transmit two 8AM symbols to emulate a 64QAM symbol. 

* 2 info bits and 4 parity bits are mapped to 1 64QAM symbols which in 

* turn are simulated as 2 8AM symbols to achieve 2bit/s/Hz. 
* 

* INT_SIZE to be a multiple of 2 
*/ 

n = (-1.0) / (2 * SIGMA_26_64QAM * SIGMA_2 6_64QAM) ; 
for(i = 0; i < INT_SIZE; 
{ 

/* symbol 1 */ 

dO = data[i] ; 
dl = Encl [i] ; 

d2 = Enc2 [i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) } <0? (d2-0 . 5) : (0. 5-d2) } 
rx = tx + SIGMA_2 6_64QAM * gasdev{); 

log ( (exp (n* ( rx-0 . 5) * ( rx-0 . 5 ) ) +exp (n* (rx-1 . 5 ) * (rx-1 . 5 } ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp (n* (rx+0 .5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp{n* (rx+2 .5) * (rx+2.5) ) +exp (n* (rx+3 .5) * (rx+3.5) ) ) ) ; 

log( (exp{n* (rx+3 . 5) * (rx+3 . 5) ) +exp (n* {rx+2.5) * (rx+2 .5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 .5) * (rx-3.5) ) ) / 
(exp(n* (rx+1 .5) * (rx+1.5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) ) ) ; 

log( (exp (n* (rx+2 . 5) * (rx+2 . 5) ) +exp(n* (rx+1.5) * (rx+1.5) ) + 
exp {n* {rx-1. 5) * (rx-1. 5) )+exp(n* (rx-2.5) * (rx-2 .5) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+0 .5) * (rx+0.5) ) + 
exp (n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-3.5)* (rx-3.5) ) ) ) ; 
Dl_data[i] - L_d0; 

Dl_parity[i] = L_dl; 

D2_parity[i] = L_d2; 

/* symbol 2 */ 

dO = data [i+1]; 
dl = Encl Ei+l] ; 

d2 = Enc2[i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? Cd2-0 .5) : (0 .5-d2) ) 
rx = tx + SIGMA_26_64QAM * gasdevO; 

L_dO = log( (exp(n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n* (rx-2.5) * (rx-2 . 5) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3 .5) * (rx+3 .5) ) ) ) ; 

L_dl = log( (exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 .5) * (rx-3 .5) ) ) / 
(exp (n* (rx+1.5) * (rx+1.5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5)*(rx-0.5) )+exp(n* (rx-1. 5)* (rx-1. 5) ) ) ) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp(n* (rx-1. 5)* (rx-1. 5) )+exp(n* (rx-2 . 5) * (rx-2 .5) ) )/ 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+0 .5) * (rx+0.5) ) + 
exp (n* ( rx-0 . 5 ) * (rx-0 . 5 ) ) +exp (n* ( rx-3 . 5 } * ( rx-3 . 5 ) ) ) ) ; 
Dl_data[i+1] = L_d0; 

Dl_parity[i+1] = L_dl; 
D2_parity [i+1] = L_d2; 
i = i+1; 



L dO = 



L dl = 



L d2 = 
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} 

flendif 
/*mio*/ 

Ufdef R36_64QAM 
/* 

* Channel: 

* dO is MSB and d2 is LSB in 8AM: (d0,dl,d2): 

* 010—011—001 000 100—101 — 111 — 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
*/ 

/* 

* Channel: we transmit two 8AM symbols to emulate a 64QAM symbol. 

* 6 info bits and 6 parity bits are mapped to 2 64QAM symbols which in 

* turn are simulated as 4 8AM symbols to achieve 2bit/s/Hz. 
* 

* INT_SIZE to be a multiple of 6 
*/ 

n = (-1.0) / (2 * SIGMA_3 6_64QAM * SIGMA_36_64QAM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 

d0 = data [i] ; 
dl = data[i+l] ; 

£ x "^MO^^dl + 4*d0*dl - 1.0 + ( ((2*d0-l)*(2*dl-l))<0?(d2-0.5) : (0.5-d2>) 

rx = tx + SIGMA_36_64QAM * gasdev(); 

L dO = log( (exp(n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
( exp ( n* ( rx+0 . 5 } * { rx+0 . 5 ) ) +exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp(n* (rx+2.5) * (rx+2.5) ) +exp (n* (rx+3 .5) * (rx+3 .5) ) ) ) ; 

L dl = log( (exp(n* (rx+3. 5)* (rx+3. 5) )+exp(n* (rx+2.5)* (rx+2.5)) + 

exp (n* (rx-2 . 5) * (rx-2 . 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) / , 
(exp<n* (rx+1. 5) * ( rx+1 . 5) ) +exp (n* (rx+0. 5) * (rx+0. 5) ) + 
exp (n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp (n* ( rx-1 . 5 ) * ( rx-1 . 5 ) ) ) ) ; 

L d2 = log((exp(n*(rx+2.5)*trx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* ( rx-1 - 5 ) * ( rx-1 . 5 ) ) +exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) ) / 
( exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) ) +exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 
Dl_data[i] = L_d0; 

Dl_data[i+1] = L_dl; 

Dl_parity[i] = L_d2; 

/* symbol 2 */ 

d0 = data[i+2] ; 
dl = Encl [i+2] ; 

tx = 2*d0 - + 2*dl + 4*d0*dl - 1.0 + { ( (2*d0-l) * (2*dl-l) )<0? (d2-0.5) : (0.5-d2) ) 
rx = tx + S I GMA_3 6_ 6 4 QAM * gasdev ( ) ; 

L dO = log( (exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5)*(rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) )/ 
(exp(n* (rx+0. 5)* (rx+0. 5) )+exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) ) ) ; 

L dl = log((exp(n*(rx+3.5)Mrx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp (n* (rx-2 . 5) * (rx-2 . 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) / 
(exp(n* (rx+1. 5)* (rx+1. 5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0. 5)* (rx-0. 5) ) +exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2. 5) * (rx-2 .5) ) ) / 
(exp(n*(rx+3.5)*(rx+3.5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5)* (rx-0. 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) ) ; 
Dl_data[i+2] = L_d0; 

Dl_parity [i+2] = L_dl 
D2_parity [i+1] = L_d2 
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/* symbol 3 */ 

dO = data[i+3] ; 
dl = data[i+4] ; 

d2 = Enc2 [ i+3 ] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) )<0? (d2-0.5) : (0.5-d2) ) 
rx = tx + SIGMA_3 6_64QAM * gasdev(); 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* (rx-2 . 5) * ( rx-2 . 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp (n* { rx+3 . 5 ) * ( rx+3 . 5 ) ) ) ) ; 

L dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp(n* (rx-2. 5)* (rx-2. 5) ) +exp (n* (rx-3 . 5) * ( rx-3 . 5 ) ) ) / 
{ exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * { rx+0 . 5 ) ) + 
exp<n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 . 5 ) * (rx-1.5) ) ) ) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* ( rx-1 . 5 ) * ( rx-1 . 5 ) ) +exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) ) / 
(exp(n* (rx+3. 5)* (rx+3. 5) )+exp{n* (rx+0 . 5) * (rx+0 . 5) } + 
exp ( n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx- 3 . 5 ) ) ) ) ; 
Dl_data[i+3] = L_d0; 

Dl_data[i+4] = L_dl; 

D2_parity[i+3] = L_d2; 

/* symbol 2 */ 



+ ( ( (2*d0-l)*(2*dl-l) )<0?(d2-0.5) : (0.5-d2) ) 



dO = data[i+5] ; 
dl = Encl[i+4] ; 

d2 = Enc2[i+5]; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 
rx = tx + SIGMA_3 6_64QAM * gasdevO; 

L dO = log((exp<n*(rx-0.5)*(rx-0.5))+exp{n*(rx-1.5)*(rx-1.5)) + 
exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
( exp ( n* ( rx+0 . 5 ) * { rx+0 . 5 ) } +exp ( n* { rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp(n* (rx+2. 5) * (rx+2. 5) ) +exp (n* (rx+3 . 5) * (rx+3 . 5) ) ) ) ; 

L dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*{rx+2.5)*(rx+2.5)) + 
exp (n*( rx-2. 5)* (rx-2. 5) ) +exp (n* (rx-3 .5) * (rx-3 .5) ) ) / 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp (n* (rx-0 .5) * (rx-0. 5) ) +exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_d2 - log((exp(n*(rx+2.5)*{rx+2.5))+exp{n*(rx+1.5)*(rx+1.5)) .+ 
exp ( n* ( rx-1 . 5 ) * ( rx- 1.5)) +exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) ) / 
( exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx-3 .5) * (rx-3. 5) ) ) ) ; 
= L_d0; 
- L_dl; 
= L d2; 



Dl_data[i+5] 
Dl_parity[i+4] 
D2_parity[i+5] 
D2_parity [i] 
Dl_parity[i+1] 
D2_parity[i+2] 
Dl_parity[i+3] 
D2_parity [i+4] 
Dl_parity [i+5] 
i = i+5; 

} 

#endif 



= 0 
= 0 



0 
0 

- 0.0 
= 0.0 

- 0.0 
= 0.0 



/*mio*/ 

#ifdef R721_128QAM 
/* 

* Q dimension: 

* dO is MSB and d2 is LSB in 8-AM: (d0,dl,d2) : 

* 010 on 001 000 100 101 111 no 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* I dimension: 

* dO is MSB and d3 is LSB in 16AM: (dO , dl , d2 , d3 ) : 
* 

* 0010— 0011— 0001— 0000— 0100— 0101-— 0111— 0110 
-7.5 -6.5 -5.5 -4.5 -3.5 -2.5 -1.5 -0.5 
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* 1010 — 1011 — 1001— 1000— -1100— 1101— mi-— mo 

7.5 6.5 5.5 4.5 3.5 2.5 1.5 0.5 

* 

* INT_SIZE to be a multiple of 7 
*/ 

for(i = 0; i < INT_SIZE; i++) 

{ 

/* symbol 1 Q dimension: SAM */ 

d0 = data[i+2] ; 
dl = Encl[i+1] ; 

tx - 2*dQ [ - + 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l)*{2*dl-l) )<0?(d2-0.5) : (0.5-d2) ) 
rx = tx + S I GMA_8 AM_o f _7 2 1 _1 2 8 QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_8AM_of_721_128QAM * SIGMA_8AM_of_721_128QAM) ; 
L d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 

exp (n* ( rx-2 . 5 ) * { rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
{exp (n* (rx+0 . 5) * (rx+0 . 5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5) ) + 

exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp (n* ( rx+3 . 5 ) * (rx+3 . 5 ) ) ) ) ; 



+ 



L dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) 

exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* { rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
( exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-1 .5} * (rx-1 . 5) ) ) ) / 

L d2 - log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* (rx-1.5) * ( rx-1 . 5 ) ) +exp (n* (rx-2 . 5) * ( rx-2 . 5} ) ) / 
( exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp { n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 
Dl_data[i+2] = L_d0; 

Dl_parity[i+1] = L_dl; 

D2_parity[i+1] = L_d2; 

/* symbol 2 I dimension: 16AM */ 

dO = data[i] ; 
dl = data[i+l]; 
d2 = Encl[i] ; 

tx = 2*dl [ - 3 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 .5) : (0 .5-d3) ) 
tx - (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_16AM_of_721_128QAM * gasdev(); 

n - (-1.0) / (2 * S I GMA_1 6 AM_o f _7 2 1_1 2 8 QAM * SIGMA_16AM_of_721_128QAM) ; 

L dO = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* (rx-2 . 5) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * (rx-3 . 5 ) ) + 
exp (n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp (n* ( rx-6 . 5 ) * ( rx-6 . 5 ) ) +exp (n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* { rx+1 . 5 ) * { rx+1 . 5 ) ) + 
exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
exp (n* ( rx+4 . 5) * ( rx+4 . 5 ) ) +exp (n* ( rx+5 . 5 ) * (rx+5 . 5 ) ) + 
exp (n* (rx+6 . 5) * (rx+6 . 5) ) +exp (n* ( rx+7 . 5 ) * (rx+7 . 5) ) ) ) ; 

L dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp (n* ( rx+1 . 5 ) * { rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* (rx-2 . 5) * (rx-2 . 5) ) +exp (n* ( rx-3 . 5 ) * (rx-3 . 5) ) ) / 
(exp (n* (rx-4 .5) * (rx-4 .5) ) +exp (n* (rx-5. 5 ) * (rx-5 . 5) ) + 
exp ( n* ( rx- 6 . 5 ) * ( rx-6 . 5 ) ) +exp ( n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) + 
exp (n* (rx+4. 5) * (rx+4 . 5) ) +exp (n* (rx+5 . 5) * (rx+5 . 5) ) + 
exp (n* ( rx+6 . 5 ) * ( rx+ 6 . 5 ) ) +exp (n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) ) ) ; 

L d2 = log((exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)) + 

exp (n* (rx+1 . 5) * (rx+1 . 5) ) +exp (n* ( rx+0 . 5 ) * (rx+0 . 5) ) + 

exp (n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp ( n* ( rx- 1 . 5 ) * { rx-1 . 5 ) ) + 
exp(n*(rx-6.5)*(rx-6.5) ) +exp (n* (rx-7 . 5) * (rx-7 . 5) ) )/ 

(exp(n*(rx+5.5)*(rx+5.5) ) +exp (n* (rx+4 . 5) * ( rx+4 . 5 ) ) + 

exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 

exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) + 



39 



COMPUTER PROGRAM LISTING APPENDIX 



exp(n* (rx-4.5)* (rx-4.5) )+exp(n* {rx-5 . 5) * (rx-5 . 5) ) ) ) ; 

L_d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp ( n* ( rx+ 1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp ( n* ( rx-2 . 5 } * ( rx-2 . 5 ) ) +exp ( n* ( rx- 1 . 5 ) * { rx-1 . 5 ) ) + 
exp(n* (rx-6.5)* < rx-6.5) ) +exp (n* ( rx-5 . 5 ) * (rx-5. 5) ) ) / 
(exp(n* (rx+7.5) * (rx+7 . 5) ) +exp (n* (rx+4 . 5) * (rx+4. 5) ) + 
exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * C rx+0 . 5 ) ) + 
exp (n* ( rx-0 . 5) * {rx-0 . 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) + 
exp(n* (rx-4.5) * (rx-4.5) )+exp(n* (rx-7 .5) * (rx-7.5) ) ) ) ; 

Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 

Dl_parity[i] = L_d2; 

D2_parity[i] = L_d3; 

/* symbol 3 Q dimension: 8AM */ 

dO - data[i+4] ; 
dl = Encl[i+4]; 

d2 = Enc2[i+3] ; 

tx - 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( <2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2) ) 
rx = tx + SIGMA_8AM_of_721__128QAM * gasdev() ; 

n = (-1.0) / (2 * S IGMA_8 AM_of _7 2 1_1 2 8 QAM * SIGMA_8AM_of_721_128QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
(exp(n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp (n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) ) ) ; 

L_dl = log((exp{n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx- 3 . 5 ) ) ) / 
( exp (n* (rx+1. 5) * (rx+1. 5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5 ) ) + 
exp(n* (rx-0 .5) * (rx-0 .5) ) +exp (n* (rx-1. 5) * (rx-1. 5) ) ) ) ; 

L_d2 - log( (exp (n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp (n* ( rx- 1 . 5 ) * ( rx-1 . 5 ) ) +exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) ) / 
(exp (n* (rx+3. 5) * (rx+3 . 5 ) ) +exp (n* (rx+0. 5) * (rx+0 .5) ) + 
exp (n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 
Dl_data[i+4] = L_d0; 

Disparity [i+4] = L_dl; 

D2_parity[i+3] = L_d2; 

/* symbol 4 I dimension: 16AM */ 

dO = data[i+3] ; 
dl = Encl[i+3]; 
d2 = Encl[i+2] ; 

d3 = Enc2[i+2] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 .5) : (0 .5-d3) ) ; 

tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + S IGMA_1 6AM_of _7 2 1_1 2 8 QAM * gasdev{); 

n - (-1.0) / (2 * S I GMA_ 1 6 AM_0 f _7 2 1_1 2 8 QAM * SIGMA_16AM_of_721_128QAM) ; 

L_d0 = log( (exp(n*(rx-0.5)*(rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 ■ 5 ) * ( rx-3 . 5 ) ) + 
exp (n* (rx-4 .5) * (rx-4 .5) ) +exp (n* (rx-5. 5) * (rx-5. 5) ) + 
exp (n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) ) / 
(exp(n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+1. 5) * (rx+1 .5) ) + 
exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
exp(n* (rx+4. 5) * (rx+4. 5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7.5) * (rx+7.5) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp(n* (rx+1. 5) * (rx+1. 5) )+exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx-1 . 5) * (rx-1. 5) ) + 
exp (n* (rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * (rx-3 . 5 ) ) ) / 
( exp ( n* { rx- 4 . 5 ) * ( rx- 4.5)) +exp ( n* ( rx- 5 . 5 ) * ( rx-5 . 5 ) ) + 
exp(n* (rx-6.5) * (rx-6 . 5) ) +exp (n* (rx-7 . 5) * (rx-7.5) ) + 
exp (n* (rx+4. 5) * (rx+4 . 5) ) +exp (n* (rx+5 . 5) * (rx+5.5) ) + 
exp (n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7.5) * (rx+7 .5) ) ) ) ; 

L_d2 = log((exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
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expfn* (rx+1.5)* (rx+1.5) )+exp(n* (rx+0.5)* (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5)* (rx-6.5) ) +exp (n* (rx-7 . 5 ) * (rx-7 . 5) ) )/ 
(exp(n* (rx+5.5)* (rx+5.5) )+exp(n* (rx+4 . 5 ) * (rx+4 . 5) ) + 
exp{n* (rx+3. 5)* (rx+3. 5) ) +exp (n* (rx+2 . 5) * (rx+2 . 5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 } * ( rx-3 . 5 ) ) + 
exp (n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) ) ) ; 

L d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp { n* ( rx+2 . 5 ) * { rx+2 . 5 ) } + 
exp (n* (rx-2 . 5) * (rx-2 . 5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp(n* (rx-5 .5) * (rx-5. 5) ) ) / 
{ exp ( n* { rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp ( n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp ( n* { rx-3 . 5 ) * { rx-3 . 5 ) ) + 
exp (n* (rx-4. 5) * (rx-4 . 5) ) +exp (n* (rx-7. 5) * (rx-7. 5) ) ) ) ; 



Dl_data[i+3] - L_d0; 

Disparity [i+3] = L_dl; 

Dl_parity[i+2] = L_d2; 

D2_parity[i+2] = L_d3; 

/* symbol 5 Q dimension: 8AM */ 



dO = data[i+6] ; 
dl = Encl[i+6] ; 

tx = 2*dO C - + 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) )<0? (d2-0 . 5) : ( 0 . 5-d2) ) 
rx = tx + SIGMA 8 AM_o f _7 2 1_1 2 8 QAM * gasdevO; 

n = (-1.0) / (2 * S I GMA_8AM__o f_7 2 1_1 2 8 QAM * SIGMA_8AM_of_721_128QAM) ; 
LdO = iog((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* (rx-2 . 5) * (rx-2 . 5) ) +exp (n* (rx-3 .5) * (rx-3 . 5 ) ) ) / 
(exp <n* (rx+0 .5) * (rx+0 . 5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5) ) + 
exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) ) ) ; 

L dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* (rx-1 . 5) * (rx-1 . 5 ) ) +exp (n* ( rx-2 . 5) * (rx-2 . 5) ) ) / 
(exp (n* (rx+3. 5) * (rx+3. 5) )+exp{n* (rx+0.5) * (rx+0.5) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp (n* { rx-3 . 5 ) * (rx-3. 5) ) ) ) ; 
Dl_data[i+6] - L_d0; 

Disparity [i+6] = L_dl; 

D2_parity[i+6] = L_d2; 

/* symbol 6 I dimension: 16AM */ 



dO = data [i+5]; 
dl = End [i+5] ; 
d2 = Enc2 [ i+5 ] ; 

tx = 2*dl [ - + 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l)*(2*d2-l) )<0?(d3-0.5) : (0.5-d3) ) 

tx = (dO == 0 ? (tx -4): (4 - tx) ) ; 
rx = tx + SIGMA_16AM_of_721_128QAM * gasdevO; 

n = (-1.0) / (2 * S I GMA_1 6 AM_o f _7 2 1_1 2 8 QAM * SIGMA_16AM_of_721_128QAM) ; 

L dO - log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp ( n* { rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* { rx-3 . 5 ) * ( rx- 3 . 5 ) ) + 
exp ( n* ( rx-4 . 5 ) * ( rx- 4 . 5 ) ) +exp ( n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp(n* (rx-6.5)* (rx-6.5) )+exp(n* (rx-7. 5) * (rx-7. 5) ) ) / 
(exp(n*(rx+0. 5)* (rx+0.5) ) +exp (n* (rx+1 . 5 ) * (rx+1 . 5 ) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp (n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp < n* ( rx+6 . 5 ) * ( rx+ 6 . 5 ) ) +exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) ) ) ; 

L dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp { n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* (rx-0. 5)* (rx-0.5) >+exp(n* {rx-1. 5)* (rx-1.5) ) + 
exp(n*(rx-2.5)*(rx-2.5) ) +exp (n* (rx-3 . 5 ) * (rx-3. 5) ) )/ 
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( exp ( n* ( rx- 4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp(n* (rx-6.5)* (rx-6.5) )+exp(n* (rx-7 . 5 ) * (rx-7 . 5 ) ) + 
exp(n*(rx+4.5)* (rx+4.5) ) +exp (n* (rx+5 . 5) * (rx+5 . 5) ) + 
exp(n*(rx+6.5)*(rx+6.5) ) +exp (n* { rx+7 . 5) * (rx+7 . 5) ) ) ) ; 

L d2 = log((exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp (n* (rx-0 . 5) * (rx-0 . 5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp (n* (rx-6.5)* (rx-6.5) ) +exp (n* (rx-7 . 5) * (rx-7 . 5 ) ) )/ 
( exp ( n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) +exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp { n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp (n* (rx-2. 5)* (rx-2. 5) )+exp(n* (rx-3.5)* (rx-3.5) ) + 
exp(n* (rx-4 .5)* (rx-4. 5) )+exp(n* (rx-5 . 5 ) * (rx-5 . 5) ) ) ) ; 

L d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp ( n* ( rx+1 . 5 ) * { rx+1 . 5 ) ) +exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx- 1 . 5 ) * ( rx-1 . 5 ) ) + 
exp (n* (rx-6.5)* (rx-6.5) ) +exp <n* (rx-5 .5) * (rx-5. 5) ) )/ 
(exp(n* (rx+7.5)*(rx+7.5) )+exp(n* (rx+4 .5) * (rx+4 . 5) ) + 
exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* (rx-0 .5) * (rx-O. 5) ) +exp (n* (rx-3.5) * (rx-3.5) ) + 
exp(n*(rx-4.5)*(rx-4.5) ) +exp (n* (rx-7 . 5) * (rx-7 . 5) ) ) ) ; 



Dl_data[i+5] - L _ d0 ' 

Dl_parity [i+5] = L_dl; 

D2_parity[i+5] = L_d2; 

D2_parity[i+4] = L_d3; 

i = i+6; 

} 

#endif 



/*mio*/ 

#ifdef R824_256QAM 
/* 

* Channel: 

* dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) : 
★ 

* 0010—0011—0001—0000 0100 0101—0111 0110 

-7.5 -6.5 -5.5 -4.5 -3.5 -2.5 -1.5 -0.5 

* 1010 — 1011 — 1001 — 1000 — 1100 — 1101 — 1111 — liio 

* 7.5 6.5 5.5 4.5 3.5 2.5 1.5 0.5 

* Channel: we transmit two 16AM symbols to emulate a 25 6QAM symbol. 

* 8 info bits and 16 parity bits are mapped to 3 256QAM symbols which in 

* turn are simulated as 6 16AM symbols to achieve 8/3bit/s/Hz. 

* INT_SIZE to be a multiple of 8 
*/ 

n - (-1.0) / (2 * SIGMA__824_25 6QAM * SIGMA_824_256QAM) ; 
/* 

* deinterleave data: 
*/ 

for(i = 0; i < INT_SIZE; i++) 

data_d[i] = data[i] ; 
r_deileava (data_d, rule) ; 

ford = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data_d[i]; 
dl = data_d[i+l] ; 
d2 = Encl[i}; 

tx = 2*dl [ - ] 2*d2 + 4*dl*d2 - 1.0 + ( { (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) : (0 . 5-d3) ) 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
/* Test the mapping to the 16AM constellation: 
* if (i < 500) 
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* print f ("\n(%d%d%d%d) =%f", (int)dO, (int)dl, (int)d2, (int)d3, tx) ; 
*/ 

rx = tx + SIGMA_58_256QAM * gasdev{); 

L_dO = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3.5) * {rx-3 .5) ) + 
exp ( n* ( rx-4 . 5 ) * ( rx- 4 . 5 ) ) +exp ( n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp(n* (rx-7 .5) * (rx-7 .5) ) ) / 
( exp ( n* { rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp ( n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
expfn* (rx+6.5) * (rx+6.5) ) +exp (n* ( rx+7 . 5) * (rx+7. 5) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5) ) +exp (n* (rx+2 . 5) * (rx+2 . 5 ) ) + 
exp(n* (rx+1. 5) * (rx+1. 5) } +exp(n* (rx+0 .5) * (rx+0 . 5) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1 .5) ) + 
exp (n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 . 5 ) * (rx-3.5) ) ) / 
(exp (n* (rx-4. 5) * (rx-4. 5) )+exp(n* (rx-5. 5) * (rx-5. 5) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7. 5) * (rx-7 .5) ) + 
exp ( n* ( rx+4 . 5 ) * { rx+4 . 5 ) ) +exp ( n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp(n* (rx+6.5)* (rx+6.5) ) +exp (n* (rx+7 .5) * (rx+7 .5) ) ) ); 

L_d2 = log( (exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5) ) + 
exp(n* (rx+1. 5) * (rx+1. 5) ) +exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp(n* (rx-7 .5) * (rx-7. 5) ) ) / 
(exp (n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) +exp (n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp (n* (rx+3. 5) * ( rx+3 . 5 ) ) +exp (n* (rx+2. 5) * (rx+2. 5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 .5) * (rx-3 . 5) ) + 
exp (n* (rx-4 .5) * (rx-4. 5) )+exp(n* (rx-5. 5) * (rx-5. 5) ) ) ) ; 

L_d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp (n* (rx+1. 5) * (rx+1. 5) ) +exp (n* (rx+2. 5) * (rx+2. 5) ) + 
exp (n* (rx-2 . 5) * (rx-2 . 5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-5. 5) * (rx-5. 5) ) ) / 
( exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp (n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp (n* { rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* (rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp (n* (rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp{n* (rx-4 .5) * (rx-4 .5) ) +exp(n* (rx-7 .5) * (rx-7. 5) ) ) ) ; 



Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 

Dl_parity[i] = L_d2; 

D2_parity[i] = L_d3; 

/* symbol 2 */ 
dO = data_d[i+2]; 
dl - Encl[i+2] ; 

d2 = Encl[i+1] ; 

d3 = Enc2[i+1]; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) )<0? (d3-0 .5) : (0.5-d3) ) 

tx = (dO == 0 ? (tx -4): (4 - tx) ) ; 
rx = tx + SIGMA_824_256QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp (n* (rx-4 .5) * (rx-4. 5) )+exp<n* (rx-5. 5) * (rx-5. 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7 . 5) * (rx-7 . 5) ) ) / 
(exp(n* (rx+0. 5) * (rx+0.5) )+exp(n* (rx+1. 5) * (rx+1 .5) ) + 
exp (n* (rx+2. 5) * (rx+2. 5) )+exp{n* (rx+3. 5) * (rx+3 .5} ) + 
exp (n* (rx+4. 5) * (rx+4. 5) )+exp(n* (rx+5. 5) * (rx+5. 5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7. 5) * (rx+7 .5) ) ) ) ; 



L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)> + 
exp(n* (rx+1. 5) * (rx+1. 5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2 . 5) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx-4. 5) * (rx-4 .5) )+exp(n* (rx-5. 5) * (rx-5. 5) ) + 
exp (n* (rx-6 . 5) * ( rx-6 . 5 ) ) +exp (n* (rx-7 . 5) * ( rx-7 . 5 ) ) + 
exp(n* (rx+4. 5) * (rx+4. 5) ) +exp (n* (rx+5 . 5) * (rx+5. 5) ) + 
exp (n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7 . 5) * (rx+7. 5) ) ) ) ; 

L_d2 = log((exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
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exp ( n* ( rx+1 . 5 ) * { rx+1 . 5 ) ) +exp (n* ( rx+0 . 5 ) * { rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) ) / 
(exp(n* (rx+5.5)* (rx+5.5) )+exp(n* (rx+4 . 5) * (rx+4 . 5) ) + 
exp (n* (rx+3 . 5) * (rx+3 . 5) ) +exp (n* (rx+2 . 5) * (rx+2 . 5) ) + 
exp(n*(rx~2.5)* (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5 ) ) + 
exp (n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) ) ) ; 

L_d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp(n* (rx-2 .5) * (rx-2.5) ) +exp{n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-5. 5) * (rx-5. 5) ) ) / 
(exp(n* (rx+7 .5)* (rx+7.5) ) +exp (n* (rx+4 . 5 ) * (rx+4 . 5 ) ) + 
exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * { rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3.5) * (rx-3.5) ) + 
exp (n* ( rx-4 . 5 ) * { rx-4 . 5 ) ) +exp (n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) ) ) ; 

Dl_data[i+2] = L_d0; 

Dl_parity[i+2] = L_dl; 

Dljparity [i+1] = L_d2; 

D2jparity [i+1] = L_d3; 

/* symbol 3 */ 
dO = data_d[i+3] ; 
dl = Encl [i+3] ; 
d2 = Enc2 [i+3] ; 

d3 = Encl[i+2]; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + (((2*dl-l)*(2*d2-l))<0?(d3-0.5):(0.5-d3)) 

tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_824_256QAM * gasdevO; 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp ( n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp ( n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7 . 5 ) * ( rx-7 . 5 ) ) ) / 
(exp(n*(rx+0.5)*(rx+0.5) ) +exp (n* (rx+1 .5) * (rx+1 . 5) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp (n* (rx+4. 5) * (rx+4. 5) ) +exp (n* (rx+5 .5) * (rx+5.5) ) + 
exp(n* (rx+6.5)* (rx+6.5) ) +exp (n* (rx+7 .5) * (rx+7.5) ) ) ) ; 

L_dl - log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp (n* (rx+1. 5) * (rx+1 . 5) ) +exp (n* (rx+0. 5) * (rx+0. 5) ) + 
exp (n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx-4. 5) * (rx-4 . 5) ) +exp (n* (rx-5. 5) * (rx-5. 5) ) + 
exp ( n* ( rx- 6 . 5 ) * { rx- 6 . 5 ) ) +exp (n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) + 
exp (n* (rx+4. 5) * (rx+4. 5) ) +exp (n* (rx+5.5) * (rx+5.5) ) + 
exp (n* (rx+6.5)* (rx+6.5) ) +exp (n* (rx+7 .5) * (rx+7 .5) ) ) ); 

L_d2 = log( (exp(n* (rx+7 .5) * (rx+7 .5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 
exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1.5) * (rx-1.5) ) + 
exp (n* (rx-6.5)* (rx-6.5) )+exp(n* (rx-7 .5) * (rx-7 .5) ) ) / 
(exp(n* (rx+5.5) * (rx+5.5) ) +exp(n* (rx+4 .5) * (rx+4. 5) ) + 
exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp(n* (rx-2.5) * (rx-2. 5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) + 
exp(n*(rx-4.5)*(rx-4.5))+exp(n* (rx-5 . 5 ) * (rx-5 . 5) ) ) ) ; 

L_d3 = log{ (exp(n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 
exp (n* (rx+1. 5) * (rx+1. 5) )+exp(n* (rx+2. 5) * (rx+2 .5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* { rx-1 . 5 ) * ( rx-1 . 5 ) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-5. 5) * (rx-5 .5) ) ) / 
( exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp { n* ( rx+4 . 5 ) * ( rx+4 . 5 } ) + 
exp(n* (rx+3. 5) * (rx+3. 5) ) +exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp (n* ( rx-0 . 5 ) * (rx-0 . 5 ) ) +exp (n* (rx-3 . 5) * (rx-3 . 5 ) ) + 
exp(n* (rx-4. 5) * (rx-4 .5) ) +exp (n* (rx-7 .5) * (rx-7.5) ) ) ) ; 
Dl_data[i+3] = L_d0; 

Dl_parity [i+3] = L_dl; 
D2_parity[i+3] = L_d2; 

D2_parity[i+2] = L_d3; 

/* symbol 4 */ 

dO = data_d[i+4] ; 
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dl = data_d[i+5] ; 
d2 = End [i+4] ; 
d3 = Enc2 [i+4] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) : (0 . 5-d3> ) 

tx = {d0 == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_824_256QAM * gasdevO; 

L dO = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n*<rx-2.5)* (rx-2 . 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5 ) ) + 
exp(n* (rx-4.5)* (rx-4.5) )+exp(n* (rx-5.5)* (rx-5.5) ) + 
exp (n* (rx-6.5)* (rx-6.5) )+exp(n* (rx-7 . 5 ) * (rx-7 . 5) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp {n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* { rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp (n* (rx+4.5)* (rx+4.5) )+exp{n* (rx+5 . 5} * (rx+5 . 5) ) + 
exp ( n* ( rx+6 . 5 ) * ( rx+ 6.5)) +exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) ) ) ; 

L dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* { rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* <rx-0.5)*(rx-0.5) )+exp(n* (rx-1.5) * (rx-1 .5) ) + 
exp(n* (rx-2.5)*(rx-2.5) )+exp(n* {rx-3 .5) * (rx-3.5) ) ) / 
{exp(n* (rx-4.5)* (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp ( n* ( rx- 6 . 5 ) * ( rx- 6 . 5 ) ) +exp ( n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) + 
exp{n* (rx+4.5)* (rx+4.5) )+exp(n* (rx+5. 5) * (rx+5. 5) ) + 
exp(n*(rx+6.5)*(rx+6.5))+exp(n*(rx+7.5)*{rx+7.5) )) ); 

L d2 = log((exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp(n* (rx+1. 5) * (rx+1. 5) ) +exp <n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp (n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp (n* ( rx-1 . 5 ) * ( rx-1 . 5 ) ) + 
exp <n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7 .5) * (rx-7 .5) ) ) / 
(exp(n* (rx+5. 5) * (rx+5 . 5) ) +exp (n* (rx+4 . 5) * (rx+4 .5) ) + 
exp(n* (rx+3. 5) * ( rx+3 . 5 ) ) +exp (n* (rx+2. 5) * (rx+2. 5) ) + 
exp (n* (rx-2 .5) * (rx-2 . 5 ) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) + 
exp (n* (rx-4 .5) * (rx-4 . 5) ) +exp (n* (rx-5 . 5) * (rx-5 . 5) ) ) ) ; 

L d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp (n* (rx+1 . 5 ) * (rx+1 . 5) ) +exp (n* (rx+2 . 5) * (rx+2 . 5 ) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-1 . 5 ) * { rx-1 . 5 ) ) + 
expfn* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-5.5) * (rx-5.5) ) ) / 
( exp ( n* { rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* (rx-0. 5) * (rx-0. 5) ) +exp <n* (rx-3 . 5) * (rx-3 . 5) ) + 
exp(n* (rx-4.5)* (rx-4.5) ) +exp (n* (rx-7 .5) * (rx-7 .5) ) ) ) ; 
Dl_data[i+4] = L_d0; 
Dl_data[i+5] = L_dl; 

Disparity [i+4] = L_d2; 
D2_parity [i+4] - L_d3; 

/* symbol 5 */ 

dO = data_d[i+6]; 
dl = Encl[i+6] ; 
d2 = Encl [i+5] ; 

tx = 2*dl C - [ 2*d2'+ 4*dl*d2 - 1.0 + ( { (2*dl-l) * (2*d2-l) ) <0? (d3-0.5) : (0 .5-d3) 

tx = (dO == 0 ? (tx -4): (4 - tx)); 
rx = tx + SIGMA_824_256QAM * gasdevf); 

L dO = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* { rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp ( n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp ( n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp (n* ( rx- 6 . 5 ) * ( rx-6 . 5 ) ) +exp ( n* ( rx-7 . 5 ) * ( rx-7 . 5 } ) ) / 
(exp (n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+1 . 5) * (rx+1 . 5) ) + 
exp (n* (rx+2 . 5) * (rx+2 . 5) ) +exp (n* (rx+3 .5) * (rx+3 . 5) ) + 
exp (n* ( rx+4 . 5 ) * (rx+4 . 5 ) ) +exp (n* ( rx+5 . 5 ) * { rx+5 . 5 ) } + 
exp(n* (rx+6. 5)* (rx+6. 5) ) +exp (n* (rx+7 . 5) * (rx+7. 5) ) ) ) ; 

L dl - log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* ( rx-0 . 5 ) * (rx-0 . 5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5 ) ) + 
exp (n* (rx-2. 5)* (rx-2. 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) / 
(exp (n* (rx-4. 5)* (rx-4.5) )+exp(n* (rx-5.5)* (rx-5.5) ) + 
exp(n* (rx-6.5)* (rx-6.5) )+exp(n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) + 
exp (n* ( rx+4 . 5 ) * ( rx+4 . 5 ) } +exp ( n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
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exp(n* (rx+6.5) * (rx+6.5) ) +exp (n* ( rx+7 . 5) * (rx+7 .5) ) ) ) ; 

L d2 = log((exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* ( rx- 6 . 5 ) * ( rx-6 . 5 ) ) +exp < n* (rx-7 . 5 ) * ( rx-7 . 5 ) ) ) / 
(exp(n* (rx+5.5)* (rx+5.5) ) +exp (n* (rx+4 . 5) * (rx+4 . 5) ) + 
exp (n* (rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp(n* (rx-2.5)* (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) + 
exp(n* (rx-4.5)* (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) ) ) ; 

L d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp ( n* ( rx+1 . 5 ) * { rx+1 . 5 ) ) +exp ( n* ( rx+2 . 5 } * ( rx+2 . 5 ) ) + 
exp (n* (rx-2 . 5) * (rx-2 . 5) ) +exp (n* (rx-1 .5) * (rx-1 . 5) ) + 
exp (n*(rx-6. 5)* (rx-6. 5) )+exp(n* (rx-5.5)* (rx-5.5) ) ) / 
( exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp (n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp ( n* ( rx- 0 . 5 ) * ( rx- 0 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp(n* (rx-4.5)* (rx-4.5) )+exp(n* (rx-7 . 5) * (rx-7 . 5) ) ) ) ; 
Dl_data[i+6] - L_dO; 

Dljoarity [i+6] = L__dl; 
Disparity [i+5] = L_d2; 

D2_parity [i+5] = L_d3; 

/* symbol 4 */ 

dO - data_d[i+7] ; 

dl = Encl[i+7] ; 

d2 = Enc2[i+7]; 

d3 = Enc2 [i+6] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) )<0? (d3-0.5) : (0.5-d3) ) ; 

tx = (dO == 0 ? (tx -4): (4 - tx) ) ; 
rx - tx + SIGMA_824_256QAM * gasdev(); 

L dO = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* (rx-2 .5) * (rx-2 .5) ) +exp (n* (rx-3 .5) * (rx-3 .5) ) + 
exp ( n* ( rx- 4 . 5 ) * ( rx- 4 . 5 ) ) +exp ( n * ( rx- 5 . 5 ) * ( rx- 5 . 5 ) ) + 
exp(n*(rx-6.5)*(rx-6.5) )+exp(n* (rx-7 . 5) * (rx-7 .5) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp(n* (rx+4. 5)* (rx+4. 5) ) +exp (n* (rx+5.5) * (rx+5.5) ) + 
exp (n* ( rx+6 . 5 ) * ( rx+6 . 5 ) ) +exp (n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) ) ) ; 

L dl = log( (exp(n* (rx+3. 5)* (rx+3. 5) )+exp(n* (rx+2. 5) * (rx+2. 5) ) + 
exp(n*(rx+1.5)*(rx+1.5) ) +exp (n* (rx+0 . 5 ) * (rx+0. 5) ) + 
exp (n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp (n* (rx-1 . 5 ) * ( rx-1 . 5 ) ) + 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3. 5)* (rx-3. 5) ) )/ 
(exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* (rx-5 .5) * (rx-5 . 5) ) + 
exp ( n* { rx- 6 . 5 ) * ( rx- 6 . 5 ) ) +exp ( n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) + 
exp(n* (rx+4. 5) * (rx+4 . 5} ) +exp (n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+6.5)* (rx+6.5) )+exp(n* (rx+7. 5) * (rx+7 .5) ) ) ) ; 

L d2 = log((exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)} + 
exp(n* (rx+1. 5)* (rx+1. 5) )+exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0. 5)* (rx-0. 5) ) +exp (n* (rx-1.5) * (rx-1 .5) ) + 
exp(n*(rx-6.5)*(rx-6.5) ) +exp (n* (rx-7 . 5) * (rx-7. 5) ) )/ 
(exp(n* (rx+5.5) * (rx+5 . 5) ) +exp (n* ( rx+4. 5) * (rx+4. 5) ) + 
exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp (n* ( rx+2 . 5 ) * { rx+2 . 5 ) ) + 
exp (n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) + 
exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* (rx-5 . 5) * (rx-5 . 5) ) ) ) ; 

L d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp(n* {rx+1. 5) * (rx+1 . 5) ) +exp (n* (rx+2 . 5) * (rx+2 . 5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-1 . 5 ) * ( rx-1 . 5 ) ) + 
exp(n*(rx-6.5)*(rx-6.5) ) +exp (n* (rx-5 . 5) * (rx-5 . 5) ) )/ 
( exp (n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp (n* (rx+3. 5) * (rx+3. 5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp (n* (rx-0 . 5 ) * (rx-0 . 5) ) +exp (n* ( rx-3 . 5) * ( rx-3 . 5) ) + 
exp(n* (rx-4.5)* (rx-4.5) ) +exp (n* ( rx-7 . 5 ) * (rx-7. 5) ) ) ) ; 
Dl_data[i+7] = L_d0; 
Dl_parity[i+7] = L_dl; 
D2_parity[i+7] = L_d2; 
D2_parity[i+6] = L_d3; 
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i = i+7; 

} 

/* 

* interleave data: 
*/ 

r_ileav(Dl__data, rule); 
#endif 

/*mio*/ 

#ifdef R69_512QAM 
/* 

* Interleaver should be a multiple of 3, e.g., 6144 
* 

* Q dimension: 

* dO is MSB and d4 is LSB in 32AM: (dO, dl, d2 , d3, d4) : 

* 00010— 00011—00001— 00000— 00100— 00101— 00111— 00110 

* -15.5 -14.5 -13.5 -12.5 -11.5 -10.5 -9.5 -8.5 

* 01010— 01011— 01001— 01000—01100—01101— 01111 — OHIO 
-0.5 -1.5 -2.5 -3.5 -4.5 -5.5 -6.5 -7.5 

* 

* 11010—11011—11001—11000—11100—11101 — 11111—11110 

* 0.5 1.5 2.5 3.5 4.5 5.5 6.5 7.5 
* 

* 10010—10011 — 10001—10000—10100—10101—10111 — 10110 

* 15.5 14.5 13.5 12.5 11.5 10.5 9.5 8.5 
* 

* I dimension: 

* dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) : 
* 

* 0010 0011 0001 0000 

* -7.5 -6.5 -5.5 -4.5 

* 

* 1010 1011 1001 1000 

* 7.5 6.5 5.5 4.5 
*/ 

/* 

* deinterleave data: 
*/ 

for(i = 0; i < INT_SIZE; i++) 

data__d[i] = data[i] ; 
r_deileava (data_d, rule) ; 

for(i =0; i < INT_SIZE; i++) 
{ 

/* symbol 1, Q dimension: 32AM */ 
dO = data_d[i]; 
dl = data_d[i+l] ; 

d2 = Encl[i] ; 

d3 = Enc2 [i] ; 

d4 = Encl [i+1] ; 

tx = 2*d2 - 2*d3 + 4*d2*d3 - 1.0 + ( ( (2*d2-l) * (2*d3-l ) ) <0? <d4-0 . 5 ) : (0 . 5-d4 ) ) 

tx = {dl == 0 ? (tx - 4): (4 - tx) ) ; 

tx = (dO == 0 ? (tx -8): (8 - tx) ) ; 
rx = tx + S I GMA_ 3 2 AM_o f _3 9_5 1 2 QAM * gasdev(); 

n = (-1.0) / (2 * S IGMA_3 2 AM_o f _3 9_5 12 QAM * SIGMA_32AM_of_39_512QAM) ; 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3.5) * (rx-3.5) ) + 
exp <n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* (rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp (n* (rx-6 . 5) * (rx-6 . 5) ) +exp (n* (rx-7 . 5) * (rx-7 . 5) ) + 
exp(n*(rx-8.5)*(rx-8.5) ) +exp (n* (rx-9 . 5) * (rx-9 . 5 ) ) + 
exp (n* (rx-10.5) * (rx-10.5) ) +exp (n* (rx-11 .5) * (rx-11. 5) ) + 
exp(n*(rx-12.5)*{rx-12.5) )+exp(n* (rx-13.5) * (rx-13.5) ) + 
exp(n* (rx-14.5) * (rx-14 .5) ) +exp (n* (rx-15.5) * (rx-15.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1.5) * (rx+1.5) ) + 
exp(n*(rx+2.5)*(rx+2.5) )+exp(n* (rx+3 .5) * (rx+3 .5) ) + 
exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp (n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp(n*(rx+6.5)*(rx+6.5) )+exp(n* (rx+7 . 5) * (rx+7 . 5) ) + 
exp (n* (rx+8.5) * (rx+8.5) ) +exp (n* ( rx+9 . 5) * (rx+9. 5) ) + 



0100 0101 0111 0110 

-3.5 -2.5 -1.5 -0.5 

1100 1101 — 1111 1110 

3.5 2.5 1.5 0.5 
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exp(n* (rx+10.5) * (rx+10.5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
exp(n* (rx+12 .5) * (rx+12.5) ) +exp (n* { rx+13 . 5) * (rx+13.5) ) + 
exp(n* (rx+14 .5) * (rx+14. 5) ) +exp (n* (rx+15 . 5) * (rx+15.5) ) ) ) ; 

L_dl = log( (exp(n*(rx-0.5)*(rx-0.5) )+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * (rx-3 . 5) ) + 
exp (n* (rx-4 .5) * (rx-4.5) )+exp(n* (rx-5.5) * {rx-5 .5) ) + 
exp(n*(rx-6.5)*(rx-6.5) ) +exp (n* (rx-7 . 5) * (rx-7 . 5) ) + 
exp (n* (rx+0.5) * (rx+0.5) ) +exp (n* {rx+1 . 5) * (rx+1.5) ) + 
exp (n* (rx+2.5) * (rx+2 .5) )+exp{n* (rx+3.5) * (rx+3.5) ) + 
exp(n* (rx+4.5) * (rx+4.5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7.5) * (rx+7.5) ) } / 
(exp{n* (rx-8 .5) * (rx-8 .5) ) +exp (n* { rx-9 . 5 ) * (rx-9.5) ) + 
exp(n* (rx-10.5) * (rx-10.5) }+exp(n* (rx-11.5) * (rx-11.5) ) + 
exp(n* (rx-12.5) * (rx-12.5) )+exp(n* (rx-13.5) * (rx-13.5) ) + 
exp(n* (rx-14 .5) * (rx-14 .5) )+exp(n* (rx-15.5) * (rx-15.5) ) + 
exp(n* (rx+8.5) * (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
exp(n* (rx+10.5) * (rx+10.5) ) +exp(n* (rx+11 .5) * (rx+11.5) ) + 
exp(n* (rx+12.5)* (rx+12.5) }+exp(n* (rx+13.5)* (rx+13.5) ) + 
exp(n* (rx+14 .5) * {rx+14 .5) ) +exp (n* (rx+15 . 5) * (rx+15.5) ) ) ) ; 

L_d2 = log((exp(n*(rx+4.5)*(rx+4.5))+exp(n*(rx+5.5)*(rx+5.5)) + 
exp (n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7.5) * (rx+7 .5) ) + 
exp (n* (rx+8 .5) * (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
exp (n* (rx+10.5)* (rx+10.5) ) +exp (n* (rx+11 . 5) * (rx+11 . 5) ) + 
exp(n* (rx-4 .5) * (rx-4 .5) )+exp<n* (rx-5.5) * (rx-5 .5) ) + 
exp<n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7. 5) * (rx-7. 5) ) + 
exp (n* (rx-8 .5) * (rx-8. 5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
exp(n* (rx-10.5) * (rx-10.5) )+exp(n* (rx-11.5) * (rx-11.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp(n* (rx+1.5) * (rx+1.5) ) + 
exp { n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp(n* (rx+12.5) * (rx+12 .5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
exp(n* (rx+14. 5) * (rx+14 .5) ) +exp(n* (rx+15.5) * (rx+15.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) + 
exp(n* (rx-12.5) * (rx-12.5) )+exp(n* (rx-13 . 5) * (rx-13 . 5) ) + 
exp(n* (rx-14 .5)* (rx-14 .5) )+exp(n* (rx-15 .5) * (rx-15.5) ) ) ) ; 

L_d3 = log( (exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx+6.5) * (rx+6.5) )+exp{n* (rx+7 .5) * (rx+7.5) ) + 
exp (n* (rx+8 .5) * (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
exp(n* (rx+14. 5)* (rx+14. 5) )+exp(n* (rx+15.5) * (rx+15.5) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1 .5) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7. 5) * (rx-7. 5) ) + 
exp (n* (rx-8 .5) * (rx-8 .5) ) +exp(n* (rx-9.5) * (rx-9.5) ) + 
exp(n*(rx-14.5)*(rx-14.5) )+exp(n* (rx-15.5) * (rx-15.5) ) )/ 
(exp (n* (rx+4 .5) * (rx+4 . 5) ) +exp (n* (rx+5. 5) * (rx+5 .5) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp{n* (rx+12.5) * (rx+12 .5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
exp(n* (rx+10.5)* (rx+10.5) ) +exp(n* (rx+11 .5) * (rx+11 .5) ) + 
exp(n* (rx-4.5) * (rx-4.5) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3 . 5) * ( rx-3 . 5 ) ) + 
exp(n* (rx-12.5) * (rx-12.5) ) +exp (n* (rx-13 .5) * (rx-13.5) ) + 
exp(n* (rx-10.5)* (rx-10.5) ) +exp (n* ( rx-10 . 5) * ( rx-10 . 5) ) ) ) ; 

L_d4 = log ( (exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
exp (n* (rx+10.5) * (rx+10.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
exp(n* (rx+14. 5)* (rx+14. 5) )+exp(n* (rx+13.5)* (rx+13.5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
exp (n* (rx-10.5) * (rx-10.5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
exp (n* (rx-14. 5) * (rx-14. 5) )+exp(n* (rx-13 . 5 ) * (rx-13 . 5 ) ) )/ 
(exp (n* (rx+4.5) * (rx+4 .5) ) +exp(n* (rx+3.5) * (rx+3.5) ) + 
exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* ( rx+8 . 5 ) * ( rx+8 . 5 ) ) + 
exp(n* (rx+12.5) * (rx+12 .5) ) +exp (n* { rx+11 . 5 ) * ( rx+11 . 5 ) ) + 
exp (n* (rx+0.5) * (rx+0.5) ) +exp(n* (rx+15 .5) * (rx+15.5) ) + 
exp (n* (rx-4.5) * (rx-4.5) ) +exp (n* (rx-3. 5) * (rx-3. 5) ) + 
exp(n* (rx-7. 5) * (rx-7. 5) ) +exp (n* (rx-8 .5) * (rx-8. 5) ) + 
exp (n* (rx-12 . 5) * (rx-12 . 5} ) +exp (n* (rx-11 .5) * (rx-11 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-15.5) * (rx-15.5) ) ) ) ; 
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Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 

Dl_parity[i] = L_d2; 

D2_parity[i] = L_d3; 

Dl_parity[i+1] = L_d4; 

/* symbol 1, I dimension: 16AM */ 
dO = data_d[i+2] ; 
dl = End [i+2]; 
d2 = Enc2 [i+2] ; 

d3 = Enc2[i+1]; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) : (0 ,5-d3) ) 

tx = (dO == 0 ? (tx -4): (4 - tx) ) ; 
rx = tx + S I GMA_1 6 AM_o f _3 9_5 1 2 QAM * gasdev(); 

n = (-1.0) / (2 * S I GMA_1 6 AM_o f _3 9_5 1 2 QAM * SIGMA_1 6AM_of_39_512QAM) ; 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1.5) * (rx-1. 5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3 .5) * (rx-3.5) ) + 
exp{n* (rx-4.5) * (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp(n* (rx-7.5) * (rx-7 .5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3.5) ) + 
exp(n* <rx+4 .5) * (rx+4.5) )+exp(n* (rx+5.5) * (rx+5 .5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp(n* (rx+7. 5) * (rx+7. 5} ) ) ) ; 

L_dl = log( (exp(n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+2.5) * (rx+2.5) ) + 
exp (n* (rx+1 .5) * (rx+1.5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* (rx-2 . 5) * ( rx-2 . 5) ) +exp (n* (rx-3 . 5) * ( rx-3 . 5 ) ) ) / 
{exp (n* (rx-4 .5) * (rx-4.5) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7 .5) * (rx-7.5) ) + 
exp(n* (rx+4.5) * (rx+4 .5) ) +exp(n* (rx+5.5) * (rx+5.5) ) + 
exp{n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7.5) * (rx+7 .5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+7 . 5 ) * (rx+7 . 5) ) +exp (n* (rx+6.5) * (rx+6.5) ) + 
exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0 .5) * (rx+0 .5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp{n* (rx-1.5) * (rx-1.5) ) + 
exp{n* (rx-6.5) * (rx-6.5) ) +exp(n* (rx-7.5) * (rx-7 .5) ) ) / 
(exp(n* (rx+5.5) * (rx+5. 5) )+exp(n* (rx+4.5) * (rx+4.5) ) + 
exp(n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+2.5) * (rx+2 .5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * (rx-3 . 5 ) ) + 
exp (n* (rx-4 .5) * (rx-4.5) ) +exp(n* (rx-5.5) * (rx-5.5) ) ) ) ; 

L_d3 = log( <exp(n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 
exp (n* (rx+1 .5) * (rx+1.5) ) +exp(n* (rx+2.5) * (rx+2.5) ) + 
exp (n* (rx-2.5)* (rx-2.5) ) +exp (n* (rx-1 . 5 ) * { rx-1 . 5 ) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-5.5) * (rx-5.5) ) ) / 
(exp (n* (rx+7 .5) * (rx+7 .5) ) +exp (n* (rx+4 .5) * (rx+4.5) ) + 
exp (n* (rx+3 .5) * (rx+3 .5) ) +exp (n* (rx+0 .5) * (rx+0 .5) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-3.5) * (rx-3.5) ) + 
exp (n* (rx-4 .5) * (rx-4 .5) ) +exp (n* (rx-7 .5) * (rx-7 .5) ) ) ) ; 

Dl_data[i+2] = L_d0; 
Dl_parity[i+2] = L_dl; 

D2_parity [i+2] = L_d2; 

D2_parity [i+1] = L_d3; 

i = i+2; 

} 

/* 

* interleave data: 
*/ 

r_ileav(Dl_data, rule); 
#endif 



/*mio*/ 

#ifdef R12_16QAM 
/* 

* Channel: we transmit two 4-AM symbols to emulate a 16-QAM symbol. 
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* 2 info bits and 2 parity bits are mapped to 1 16-QAM symbols which in 

* turn are simulated as 2 4-AM symbols to achieve 2bit/s/Hz 

* dO is MSB and dl is LSB in a 4-AM:(dO,dl) = 01— 00- 1 -10 — 11 

* -3-113 

* INT_SIZE to be a multiple of 2 
*/ 

n = (-1.0) / (2 * SIGMA_12_16QAM * SIGMA_12_16QAM) ; 
for{i = 0; i < INT_SIZE; 
{ 

/* symbol 1 */ 
dO = data[i] ; 
dl = Encl [i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_12__16QAM * gasdev ( ) ; 

L_d0 - log( <exp(n* (rx-1) * (rx-1) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp (n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log ( (exp (n* (rx+3) * (rx+3) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp (n* (rx-1)* (rx-1) ) +exp (n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i] - L_d0; 

Disparity [i] = L_dl; 

D2_parity[i] = 0.0; 

/* symbol 2 */ 
dO = data[i+l] ; 
dl = Enc2 [i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_12_16QAM * gasdevf); 

L_d0 = log ( (exp (n* (rx-1) * (rx-1) ) +exp (n* (rx-3) * (rx-3) ) ) / 
(exp (n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log ( (exp (n* (rx+3) * (rx+3) ) +exp (n* (rx-3) * (rx-3) ) ) / 
(exp (n* (rx-1) * (rx-1) ) +exp(n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i+1] = L_<i0; 

D2__parity [i+l] = L_dl; 

Dl_parity [i+1] = 0.0; 

i = i+1; 

} 

#endif 

#ifdef R34__16QAM 
/* 

* Channel: we transmit two 4-AM symbols to emulate a 16-QAM symbol. 

* 6 info bits and 2 parity bits are mapped to 2 16-QAM symbols which in 

* turn are simulated as 4 4-AM symbols to achieve 3bit/s/Hz 

* dO is MSB and dl is LSB in a 4-AM:(d0,dl) = 01—00-1-10—11 

* -3-113 

* INT_SIZE to be a multiple of 6 
*/ 

n = (-1.0) / (2 * SIGMA_34_16QAM * SIGMA_34_16QAM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data[i] ; 
dl = data [i+1] ; 

tx - 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_34_16QAM * gasdev(); 

L__d0 - log( (exp (n* (rx-1) * (rx-1) ) +exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L_dl - log( (exp(n* (rx+3) * (rx+3) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx-1) * (rx-1) )+exp(n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i] = L_d0; 

Dl_data[i+1] = L_dl; 

/* symbol 2 */ 
dO = data[i+2] ; 
dl = Encl [i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_34_16QAM * gasdev(); 

L_d0 = log ( (exp (n* (rx-1) * (rx-1) )+exp(n* (rx-3)* (rx-3))) / 
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(exp(n* (rx+1)* (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 
L_dl = log( (exp(n* (rx+3) * (rx+3) )+exp(n* (rx-3) * (rx-3) ) ) / 

(exp (n* (rx-1) * (rx-1) )+exp(n* (rx+1) * (rx+1) ) ) ) ; 
Dl_data[i+2] = L_d0; 
Dl_parity [i+l] = L_dl; 

/* symbol 3 */ 
dO = data[i+3] ; 
dl = data[i+4] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_34_16QAM * gasdev(); 

L_d0 - log ( (exp (n* (rx-1) * (rx-1) )+exp(n* (rx-3)* (rx-3) ) ) / 

(exp (n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 
L_dl = log ( (exp (n* (rx+3)* (rx+3) )+exp(n* (rx-3) * (rx-3) ) ) / 

(exp (n* (rx-1) * (rx-1) ) +exp(n* (rx+1) * (rx+1) ) ) ) / 
Dl_data[i+3] = L_d0; 
Dl_data[i+4] = L_dl; 

/* symbol 4 */ 
dO = data[i+5] ; 
dl = Enc2 [i+4] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_34_16QAM * gasdev(); 

L_dO - log((exp(n*(rx-l)*(rx-l))+exp(n*(rx-3)*(rx-3))) / 

(exp(n* (rx+1) * (rx+1) ) +exp (n* (rx+3) * (rx+3) ) ) ) ; 
L_dl = log { (exp (n* (rx+3) * (rx+3) ) +exp (n* (rx-3) * (rx-3) ) ) / 

(exp(n* (rx-1) * (rx-1) ) +exp(n* (rx+1) * (rx+1) ) ) ) ; 
Dl_data[i+5] = L_d0; 
D2_parity [i+4] = L_dl; 
Dl_parity[i] =0.0; 
Dl_parity[i+2] = 0.0; 
Disparity [i+3] = 0.0; 
Disparity [i+4] = 0.0; 
Dl_parity [i+5] = 0.0; 
D2_parity[i] = 0.0; 
D2_parity [i+l] = 0.0; 
D2_parity [i+2] = 0.0; 
D2_parity [i+3] = 0.0; 
D2_parity [i+5] = 0.0; 
i = i+5; 

} 

#endif 

#ifdef R56_64QAM 
/* 

* Channel: 

* dO is MSB and d2 is LSB in 8AM: (d0,dl,d2) : 

* 010— -011 001 000 100—101—111—110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
*/ 

/* 

* Channel: we transmit two 8AM symbols to emulate a 64QAM symbol. 

* 10 info bits and 2 parity bits are mapped to 2 64 QAM symbols which in 

* turn are simulated as 4 8AM symbols to achieve 5bit/s/Hz. 
★ 

* INT_SIZE to be a multiple of 10 
*/ 

n = (-1.0) / (2 * SIGMA_56_64QAM * SIGMA_5 6_64QAM) ; 
for(i - 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data[i] ; 
dl = data [i+l] ; 
d2 = Encl [i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0.5) : (0 . 5-d2) ) 
rx = tx + SIGMA_56_64QAM * gasdevf); 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp(n* (rx-3. 5) * (rx-3. 5) ) ) / 
(exp<n* (rx+0.5) * (rx+0 .5) ) +exp (n* (rx+1. 5) * (rx+1. 5) ) + 
exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) ) ) ; 
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L_dl = log( (exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* ( rx+2 . 5 ) * { rx+2 . 5) ) + 
exp {n* (rx-2 .5) * (rx-2 .5) ) +exp (n* (rx-3 . 5) * (rx-3 .5) ) ) / 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_d2 = log( (exp(n*(rx+2. 5) * (rx+2. 5) )+exp(n* (rx+1.5)* (rx+1.5) ) + 
exp (n* (rx-1 . 5) * (rx-1 . 5 ) ) +exp (n* (rx-2 . 5) * (rx-2 . 5 ) ) ) / 
(exp(n* (rx+3.5)* (rx+3.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5 ) ) ) ) ; 
Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 
Dl_parity[i] = L_d2; 
Dl_parity[i+1] = 0; 
D2_parity[i] = 0; 
D2jparity[i+1] = 0; 

/* symbol 2 */ 
dO = data[i+2] ; 
dl = data[i+3] ; 
d2 = data[i+4] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l ) * (2*dl-l ) ) <0? (d2-0 . 5) : (0 . 5-d2 ) ) 
rx = tx + SIGMA_56_64QAM * gasdev(); 

L_d0 = log{ (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5)* (rx-1.5) ) + 
exp{n* (rx-2. 5) * (rx-2. 5) ) +exp (n* (rx-3. 5) * (rx-3. 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1 .5) * (rx+1.5) ) + 
exp(n* (rx+2. 5) * (rx+2. 5) ) +exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

L_dl = log ( (exp (n* (rx+3.5) * (rx+3.5) ) +exp{n* (rx+2 .5) * (rx+2. 5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) ) +exp (n* (rx-3. 5) * (rx-3. 5) ) ) / 
{exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx-1.5) * (rx-1.5) ) +exp (n* (rx-2. 5) * (rx-2. 5) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3. 5) * (rx-3 .5) ) ) ) ; 
Dl_data[i+2] = L_d0; 
Dl_data[i+3] - L_dl; 
Dl_data[i+4] = L_d2; 
Dl_parity[i+2] = 0; 
Dl_parity[i+3] = 0; 
Disparity [i+4] = 0; 
D2_parity[i+2] = 0; 
D2_parity [i+3] = 0; 
D2_parity [i+4] = 0; 

/* symbol 3 */ 
dO = data[i+5] ; 
dl = data[i+6] ; 
d2 = Enc2 [i+5] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) )<0? (d2-0.5) : (0.5-d2) ) 
rx = tx + SIGMA_5 6_64QAM * gasdev(); 

L_d0 = log( (exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1 . 5) * {rx+1 . 5) ) + 
exp(n* (rx+2. 5)* (rx+2. 5) )+exp{n* (rx+3.5) * (rx+3.5) ) ) ) ; 

L_dl = log( (exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+2. 5) * (rx+2. 5) ) + 
exp(n*(rx-2.5)*(rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) )/ 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp<n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+2. 5) * (rx+2 .5) ) +exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx-1.5) * (rx-1.5) ) +exp (n* (rx-2 . 5) * (rx-2 . 5) ) )/ 
(exp(n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3. 5) * (rx-3 .5) ) ) ) ; 
Dl__data[i+5] = L_d0; 
Dl_data[i+6] = L_dl; 
D2_parity [i+5] = L_d2; 
D2_parity [i+6] = 0; 
Dl_parity [i+5] =0; 
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Dl_parity [i+6] = 0; 

/* symbol 4 */ 
dO = data[i+7] ; 
dl = data[i+8] ; 
d2 = data[i+9] / 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( { <2*d0-l) * (2*dl-l ) ) <0? (d2-0 . 5) : (0 . 5-d2) 
rx = tx + SIGMA_5 6_64QAM * gasdev(); 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3 .5) ) ) ) ; 

L_dl = log( (exp(n*(rx+3.5)*(rx+3.5) ) +exp (n* (rx+2 . 5) * (rx+2 . 5) ) + 
exp<n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp{n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0 .5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* (rx-1.5) * (rx-1 .5} )+exp(n* (rx-2.5) * (rx-2.5) ) ) / 
(exp (n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-3 .5) * (rx-3.5) ) ) ) ; 
Dl_data[i+7] - L_d0; 
Dl_data[i+8] = L_dl; 
Dl_data[i+9] - L_d2; 
Dl_parity [i+7] = 0; 
Dl_parity[i+8] = 0; 
Dljparity [i+9] = 0; 
D2_parity[i+7] = 0; 
D2_parity [i+8] = 0; 
D2_parity[i+9] = 0; 

i = i+9; 

} 

#endif 



#ifdef R57JL28QAM 
/* 

* Q dimension: 

* dO is MSB and d2 is LSB in 8-AM: (dO, dl, d2 ) : 

* 010 — 011—001 — 000 — 100—101 — 111 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 

* I dimension: 

* dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) 

* 0010— 0011— 0001— -0000— 0100— 0101 
-7.5 -6.5 -5.5 -4.5 -3.5 -2.5 

* 

* 1010 — 1011—1001 1000 1100 1101 

* 7.5 6.5 5.5 4.5 3.5 2.5 

* 

* INT_SIZE to be a multiple of 5 
*/ 

for(i = 0; i < INT_SIZE; i++) 
{ 

/* Q dimension: 8AM */ 
dO = data[i] ; 
dl = data[i+l] ; 
d2 = Encl [i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5 ) : {0 . 5-d2 ) ) 
rx = tx + SIGMA_8AM__of_128QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_8AM_of_128QAM * SIGMA_8AM_of_128QAM) ; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 . 5) * <rx-l . 5 ) ) + 

exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3.5)* (rx-3.5) ) )/ 
(exp (n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1.5) * (rx+1.5) ) + 

exp(n* (rx+2.5)* (rx+2.5) ) +exp (n* (rx+3 . 5) * (rx+3 . 5) ) ) ) ; 

L_dl = log( (exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+2 . 5) * (rx+2 . 5) ) + 
exp(n* (rx-2.5) * (rx-2 . 5) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) / 



— 110 
3.5 



0111 0110 

-1.5 -0.5 

1111 1110 

1.5 0.5 
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(exp (n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0 . 5 ) ) +exp (n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_d2 = log{ (exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx-1 .5) * (rx-1.5) ) +exp (n* (rx-2 .5) * (rx-2 .5) ) ) / 
(exp (n* {rx+3 .5) * (rx+3 .5) ) +exp (n* (rx+0 .5) * (rx+0 .5) ) + 
exp (n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) ) ; 



Dl_data[i] 
Dl_data[i+1] 
Disparity [i] 
Dljparity [i+1] 
Dl_parity [i+2] 
Dl_parity [i+3] 
Dl_parity[i+4] 



/* 
dO 
dl 
d2 



dimension: 
data [i+2] ; 
data [i+3] ; 
data[i+4] ; 



= L_dO; 
L_dl; 
L_d2; 
0.0; 
0.0; 
0.0; 
0.0; 

16AM */ 



d3 = Enc2 [i] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) : (0 . 5-d3) ; 
tx = (dO == 0 ? (tx - 4) : (4 - tx) ) ; 
rx = tx + S I GMA_1 6 AM_o f _1 2 8 QAM * gasdev(); 

n = (-1.0) / (2 * S I GMA_1 6 AM_o f_l 2 8 QAM * SIGMA_16AM_of_128QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 



exp(n* (rx-2 .5) * (rx-2. 5) ) +exp (n* 
exp (n* (rx-4 .5) * (rx-4 . 5) ) +exp (n* 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* 
(exp (n* (rx+0 .5) * (rx+0 .5) ) +exp (n* 
exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp (n* 
exp (n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp (n* 
exp (n* (rx+6.5) * (rx+6.5) ) +exp (n* 

_dl = log( (exp(n* (rx+3. 5) * (rx+3. 5) )+exp(n* 
exp (n* (rx+1.5) * (rx+1.5) ) +exp(n* 
exp (n* (rx-0 .5) * (rx-0. 5) ) +exp (n* 
exp(n* (rx-2 .5) * (rx-2. 5) ) +exp (n* 
(exp (n* (rx-4 .5) * (rx-4. 5) )+exp(n* 
expfn* (rx-6.5) * (rx-6.5) ) +exp(n* 
exp (n* (rx+4 .5) * (rx+4 .5) ) +exp (n* 
exp (n* ( rx+6 . 5 ) * ( rx+6 . 5 ) ) +exp (n* 



L d2 



log ( (exp (n* (rx+7 .5) * (rx+7.5) )+exp(n* 
exp (n* (rx+1 .5) * (rx+1 .5) ) +exp (n* 
exp (n* (rx-0.5) * (rx-0.5) ) +exp(n* 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* 
(exp(n* (rx+5.5) * (rx+5 .5) ) +exp(n* 
exp(n* (rx+3. 5) * (rx+3 .5) ) +exp(n* 
exp(n* (rx-2. 5) * (rx-2. 5) ) +exp (n* 
exp (n* (rx-4 .5) * (rx-4 .5) ) +exp (n* 

L_d3 = log { (exp (n* (rx+5.5) * (rx+5.5) )+exp(n^ 
exp (n* ( rx+1 . 5 ) * (rx+1 . 5 ) ) +exp (n* 
expfn* (rx-2. 5) * (rx-2 .5) ) +exp (n* 
exp (n* (rx-6 . 5) * (rx-6 . 5) ) +exp (n* 
(exp(n* (rx+7.5) * (rx+7 .5) ) +exp (n* 
exp(n* (rx+3. 5) * (rx+3. 5) ) +exp (n* 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* 
exp (n* (rx-4 .5) * (rx-4 .5) ) +exp (n* 



rx-3.5)*(rx-3.5) ) + 
rx-5.5)*(rx-5.5) ) + 
rx-7.5)*(rx-7.5)))/ 
rx+1.5) * (rx+1.5) ) + 
rx+3.5)*(rx+3.5)) + 
rx+5.5) * (rx+5.5) ) + 
rx+7.5) * (rx+7.5) ) ) ) ; 

(rx+2. 5) * (rx+2. 5) ) + 
rx+0.5)*(rx+0.5) ) + 
rx-1.5) * (rx-1.5) ) + 
rx-3. 5)* (rx-3. 5) ) ) / 
rx-5.5)*(rx-5.5)) + 
rx-7.5) * (rx-7.5) ) + 
rx+5.5) * (rx+5.5) ) + 
rx+7.5)*(rx+7.5) ) ) ) ; 



(rx+6.5) * (rx+6 
rx+0.5) * (rx+0. 
rx-1.5) * (rx-1. 
rx-7.5)*(rx-7. 
rx+4 .5) * (rx+4 . 
rx+2 .5) * (rx+2 . 
rx-3.5)*(rx-3. 
rx-5.5)*(rx-5. 



.5)) + 
5)) + 
5)) + 
5)))/ 
5)) + 
5)) + 
5)) + 
5))) ); 



(rx+6.5) * (rx+6.5) ) + 
rx+2.5)*(rx+2.5) ) + 
rx-1.5)*(rx-1.5)) + 
rx-5.5) * (rx-5.5) ) ) / 
rx+4. 5)* (rx+4. 5) ) + 
rx+0.5)*(rx+0.5)) + 
rx-3. 5) * (rx-3. 5) ) + 
rx-7.5) * (rx-7.5) ) ) ) ; 



Dl data[i+2] 


= L 


dO; 


Dl_data[i+3] 


= L 


dl; 


Dl_data[i+4] 


= L 


d2; 


D2_parity [i] 


- L 


"d3; 


D2_parity [i+1] 


= 0. 


"0; 


D2_parity [i+2] 


= 0. 


0; 


D2_parity [i+3] 


= 0. 


0; 


D2_parity [i+4] 


= 0. 


0; 


i = i+4; 
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#endif 



#ifdef R58_256QAM 
/* 

* Channel : 

* dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) : 
* 

* 0010— -0011—0001—0000—0100— 0101— 0111— -0110 

* -7.5 -6.5 -5.5 -4.5 -3.5 -2.5 -1.5 -0.5 

* 1010—1011 1001 1000 1100 — 1101—1111 — 1110 

* 7.5 6.5 5.5 4.5 3.5 2.5 1.5 0.5 
* 

* Channel: we transmit two 16AM symbols to emulate a 256QAM symbol. 

* 10 info bits and 6 parity bits are mapped to 2 256QAM symbols which in 

* turn are simulated as 4 16AM symbols to achieve 6bit/s/Hz. 

* 

* INT_SIZE to be a multiple of 10 
*/ 

n = (-1.0) / (2 * SIGMA_58_256QAM * SIGMA_58_256QAM) ; 
/* 

* deinterleave data: 
*/ 

for(i =0; i < INT_SIZE; i++) 

data__d[i] = data[i]; 
r_deileava (data_d, rule); 

for(i = 0; i < INT_SIZE; 
{ 

/* symbol 1 */ 
dO = data_d[i] ; 
dl = data_d[i+l] ; 
d2 = data_d[i+2] ; 
d3 = Encl[i]; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0.5) : (0.5-d3) ) 

tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 

/* Test the mapping to the 16AM constellation: 

* if (i < 500) 

* printf ( M \n(%d%d%d%d) = %f", (int)dO, (int)dl, (int)d2, (int)d3, tx) ; 
*/ 

rx = tx + SIGMA_58_256QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n*(rx-2.5)*(rx-2.5) )+exp(n* (rx-3 . 5 ) * (rx-3 . 5) ) + 
exp(n* (rx-4.5)* (rx-4.5) ) +exp (n* (rx-5 .5) * (rx-5 .5) ) + 
exp(n* (rx-6.5)* (rx-6.5) ) +exp (n* (rx-7 .5) * (rx-7 . 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2.5) * (rx+2.5) ) +exp (n* (rx+3.5) * (rx+3.5) ) + 
exp(n* (rx+4 .5) * (rx+4.5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
exp (n* (rx+6.5) * (rx+6.5) )+exp{n* (rx+7.5) * (rx+7.5) ) ) ) ; 

L_dl - log{ (exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+2.5) * (rx+2 .5) ) + 
exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0 . 5) * {rx+0 . 5) ) + 
exp (n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-1 .5) * (rx-1. 5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx- 3 . 5 ) * ( rx-3 . 5 ) ) ) / 
(exp(n* (rx-4.5) * (rx-4.5) ) +exp(n* (rx-5. 5) * (rx-5. 5) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp (n* ( rx-7 . 5 ) * (rx-7. 5) ) + 
exp {n* (rx+4 . 5) * (rx+4.5) ) +exp (n* ( rx+5 . 5 ) * (rx+5 . 5 ) ) + 
exp (n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7 .5) * (rx+7.5) ) ) ) ; 

L_d2 = log( (exp (n* (rx+7 .5) * (rx+7.5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 
exp (n* (rx+1.5) * (rx+1 . 5) ) +exp (n* (rx+0 .5) * (rx+0 .5) ) + 
exp{n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 .5) * (rx-1. 5) ) + 
exp{n* (rx-6.5)* (rx-6.5) )+exp(n* (rx-7 .5) * (rx-7 .5) ) ) / 
{exp (n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+4 . 5) * (rx+4 . 5) ) + 
exp (n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp (n* (rx-2. 5)* (rx-2. 5) ) +exp(n* (rx-3. 5) * (rx-3. 5) ) + 
exp(n* (rx-4.5)* (rx-4.5) ) +exp (n* (rx-5 . 5 ) * (rx-5 . 5 ) ) ) ) ; 



55 



COMPUTER PROGRAM LISTING APPENDIX 



L_d3 = log( (exp{n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+6. 5) * (rx+6. 5) ) + 
exp(n* (rx+1. 5) * (rx+1.5) ) +exp (n* (rx+2 .5) * (rx+2 .5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-1 .5) * (rx-1. 5) ) + 
exp(n* (rx-6.5)*(rx-6.5) )+exp(n* (rx-5 . 5) * (rx-5 . 5) ) )/ 
(exp (n* (rx+7 .5) * (rx+7 . 5) ) +exp (n* (rx+4 . 5) * (rx+4 . 5) ) + 
exp (n* (rx+3. 5) * (rx+3. 5) ) +exp (n* (rx+0 .5) * (rx+0. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3.5) * (rx-3.5) ) + 
exp (n* (rx-4. 5) * (rx-4. 5) )+exp{n* (rx-7.5) * (rx-7.5) ) ) ) ; 



Dl_data[i] 


= L dO; 


Dl_data[i+1] 


= L dl; 


Dl_data[i+2] 


= L d2; 


Dl_parity [i] 


= L d3 ; 


Dljparity [i+l] 


= 0; 


Dl_parity [i+2] 


= 0; 


D2_parity [i] 


= 0; 


D2_parity [i+l] 


= 0; 



/* symbol 2 */ 

dO = data_d[i+3] ; 

dl = data_d[i+4] ; 
d2 = Enc2 [i+2] ; 
d3 = Encl[i+4] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) )<0? (d3-0.5) : (0.5-d3) ) 
tx - (dO == 0 ? (tx -4): (4 - tx) ) ; 
rx = tx + SIGMA_58_256QAM * gasdevO; 



log ( (exp (n* (rx-0 


.5)*(rx-0 


.5) ) +exp (n* 


(rx-1 


.5) * (rx-1 


.5)) + 


exp (n* 


(rx-2 


5)* (rx-2 


5) ) +exp (n* 


(rx-3 


5)* (rx-3 


5)) + 


exp (n* 


(rx-4 


5) * (rx-4 


5) ) +exp (n* 


(rx-5 


5) * (rx-5 


5)) + 


exp (n* 


(rx-6 


5) * (rx-6 


5) ) +exp (n* 


(rx-7 


5) * (rx-7 


5)))/ 


(exp (n* 


(rx+0 


5)* {rx+0 


5) ) +exp (n* 


(rx+1 


5)* (rx+1. 


5)) + 


exp (n* 


(rx+2 


5) * (rx+2 


5) ) +exp (n* 


(rx+3 


5) * (rx+3. 


5) ) + 


exp (n* 


(rx+4 


5)* (rx+4 


5) ) +exp (n* 


(rx+5 


5) * (rx+5. 


5)) + 


exp (n* 


(rx+6 


5) * (rx+6 


5) ) +exp (n* 


[rx+7 


5) * (rx+7. 


5))) ); 


log ( (exp (n* 


(rx+3 


.5) * (rx+3 


.5) ) +exp (n* 


(rx+2 


.5) * (rx+2 


.5) ) + 


exp (n* 


[rx+1. 


5) * (rx+1 


5) ) +exp (n* 


[rx+0 


5)* (rx+0. 


5)) + 


exp (n* 


(rx-0. 


5)*(rx-0. 


5) ) +exp (n* 


[rx-1. 5) *(rx-l. 


5)) + 


exp {n* 


[rx-2 . 


5) * (rx-2. 


5) ) +exp (n* 


rx-3 


5)* (rx-3. 


5) ) )/ 


(exp {n* 


rx-4 . 


5)*(rx-4. 


5) ) +exp (n* 


!rx-5 


5) * (rx-5. 


5)) + 


exp (n* 


rx-6 . 


5)*{rx-6. 


5) ) +exp (n* 


rx-7 


5) * (rx-7. 


5)) + 


exp (n* 


rx+4 . 


5)* (rx+4. 


5) ) +exp (n* 


rx+5 


5) * (rx+5. 


5)) + 


exp (n* 


rx+6. 


5) * (rx+6. 


5) ) +exp (n* 


rx+7 


5) * (rx+7. 


5)) ) ); 


log( (exp (n* 


(rx+7 


.5) * (rx+7 


.5) )+exp(n* 


(rx+6 


.5) * (rx+6 


.5)) + 


exp(n* 


rx+1 . 


5)*(rx+l. 


5) ) +exp (n* 


rx+0 . 


5) * (rx+0. 


5)) + 


exp (n* 


rx-0 . 


5) * (rx-0. 


5) ) +exp (n* 


rx-1 . 


5)* (rx-1. 


5)) + 


exp (n* 


rx-6. 5) * (rx-6. 


5) ) +exp (n* 


rx-7 , 


5)*(rx-7. 


5) ) )/ 


(exp (n* 


rx+5.5) * (rx+5. 


5) ) +exp (n* 


rx+4 , 


5)* (rx+4. 


5)) + 


exp (n* 


rx+3. 


5) * (rx+3. 


5) ) +exp (n* 


rx+2 . 


5)* (rx+2. 


5)) + 


exp (n* 


rx-2 . 


5)*(rx-2. 


5) ) +exp (n* 


rx-3 . 


5)*(rx-3. 


5)) + 


exp (n* 


rx-4 .5) * (rx-4 . 


5) ) +exp (n* 


rx-5 . 


5)*(rx-5. 


5)))); 


log ( (exp (n* 


(rx+5 


.5) * (rx+5 


.5) ) +exp (n* 


(rx+6 


.5) * (rx+6 


.5)) + 


exp (n* 


rx+1. 


5)* (rx+1. 


5) ) +exp (n* 


rx+2 . 


5)* (rx+2. 


5)) + 


exp (n* 


rx-2 . 


5)*(rx-2. 


5) ) +exp (n* 


rx-1 . 


5)*(rx-l. 


5)) + 


exp (n* 


rx-6. 


5)*(rx-6. 


5 ) ) +exp (n* 


rx-5 . 


5) * (rx-5. 


5) ) )/ 


(exp (n* 


rx+7 . 


5) * (rx+7. 


5) ) +exp (n* 


rx+4 . 


5) * (rx+4. 


5)) + 


exp (n* 


rx+3. 


5)* (rx+3. 


5) )+exp(n* 


rx+0. 


5)* (rx+0. 


5)) + 


exp (n* 


rx-0 . 


5) * (rx-0. 


5 ) ) +exp (n* 


rx-3 . 


5)* (rx-3. 


5)) + 


exp (n* 


rx-4 . 


5)*(rx-4. 


5) ) +exp (n* 


rx-7 . 


5)* (rx-7. 


5)))); 



Dl_data[i+3] 


- L_ 


dO 


Dl_data[i+4] 


= L_ 


"dl 


D2jparity [i+2] 


= L_ 


"d2 


Dl_parity [i+4] 


= L 


~d3 


Dl_parity [i+3] 


= 0; 




D2_parity [i+3] 


= 0; 




D2_parity [i+4] 


= 0; 





/* symbol 3 */ 

dO = data_d[i+5] ; 
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dl = data_d[i+6]; 
d2 = data__d[i+7] ; 
d3 = Enc2[i+5] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( <2*dl-l) * (2*62-1) ) <0? (d3-0 .5) : (0 .5-d3) ) 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_58_256QAM * gasdev(); 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5) )+exp(n*(rx-1.5)*(rx-1.5)) + 



exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

_dl = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp <n* 
exp (n* 
exp (n* 
exp (n* 

_d2 = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 



rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* 
rx-4.5) * (rx-4.5) )+exp(n* 
rx-6.5) * (rx-6.5) ) +exp (n* 
rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp (n* 
rx+2.5) * (rx+2.5) ) +exp (n* 
rx+4.5) * (rx+4.5) ) +exp (n* 
rx+6 . 5 ) * ( rx+6 . 5 ) ) +exp (n* 



(rx+3. 5)* (rx+3 
rx+1.5) * (rx+1. 
rx-0.5) * (rx-0. 
rx-2.5)*(rx-2. 
rx-4 .5) * (rx-4 . 
rx-6.5) * (rx-6. 
rx+4 .5) * (rx+4. 
rx+6. 5) * (rx+6. 

(rx+7.5) * (rx+7 
rx+1.5) * (rx+1. 
rx-0.5)* (rx-0. 
rx-6.5) * (rx-6. 
rx+5.5)* (rx+5. 
rx+3. 5)* (rx+3. 
rx-2 .5) * (rx-2 . 
rx-4 .5) * (rx-4 . 



L_d3 = log ( (exp (n* (rx+5 

exp (n* (rx+1 . 

exp (n* (rx-2 . 

exp (n* (rx-6 . 
(exp (n* (rx+7 . 

exp (n* (rx+3 . 

exp (n* (rx-0 . 

exp (n* (rx-4 . 
Dl_data[i+5] = L_d0 
Dl_data[i+6] = L_dl 
Dl_data[i+7] - L_d2 
D2_parity [i+5] - L_d3; 
D2_parity [i+6] = 0; 
D2_parity [i+7] = 0; 
Dl_parity [i+5] - 0; 
Disparity [i+ 6] = 0; 



.5)* (rx+5, 
5)*(rx+l. 
5) * (rx-2. 
5)*(rx-6. 
5)* (rx+7. 
5) * (rx+3. 
5) * (rx-0. 
5) * (rx-4. 



. 5) ) +exp (n* 
5) ) +exp (n* 
5) )+exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) )+exp(n* 
5) ) +exp (n* 
5) ) +exp (n* 

.5) ) +exp(n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 

.5) )+exp(n^ 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 



rx-3.5)*(rx-3.5)) + 
rx-5.5)*(rx-5.5)) + 
rx-7.5)*(rx-7.5)) )/ 
rx+1.5)*(rx+1.5)) + 
rx+3.5)*(rx+3.5)) + 
rx+5.5) * (rx+5.5) ) + 
rx+7.5)*(rx+7.5)))); 

(rx+2.5)*{rx+2.5) ) + 
rx+0.5)*(rx+0.5) ) + 
rx-1.5)*(rx-1.5) ) + 
rx-3.5)*(rx-3.5)) )/ 
rx-5.5)*(rx-5.5)) + 
rx-7.5)*(rx-7.5) ) + 
rx+5.5)*(rx+5.5) ) + 
rx+7 .5) * (rx+7.5) ) ) ) ; 



(rx+6. 5) * (rx+6. 5) ) 
rx+0. 5) * (rx+0. 5) ) 



+ 
+ 

rx-1.5) * (rx-1.5) ) + 
rx-7.5)*(rx-7.5))}/ 
rx+4.5)* (rx+4.5)) + 
rx+2.5)* (rx+2.5)) + 
rx-3.5)*(rx-3.5) ) + 
rx-5.5)*(rx-5.5)))); 

(rx+6. 5) * (rx+6. 5) ) + 
rx+2.5) *(rx+2. 5) ) + 
rx-1.5) * (rx-1.5) ) + 
rx-5.5) * (rx-5.5) ) ) / 
rx+4.5) * (rx+4.5) ) + 
rx+0. 5) * (rx+0. 5) ) + 
rx-3.5) * (rx-3.5) ) + 
rx-7.5) * (rx-7.5) ) ) ) ; 



/* symbol 4 */ 

dO = data_d[i+8] ; 

dl = data_d[i+9]; 
d2 = Encl[i+7] ; 
d3 - Enc2 [i+9] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 .5) : (0 .5-d3) ) 
tx = (dO == 0 ? (tx -4): (4 - tx) ) ; 
rx = tx + SIGMA_58_256QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp (n* (rx-4.5) * (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp (n* ( rx- 6 . 5 ) * ( rx-6 . 5 ) ) +exp (n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) ) / 
(exp (n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+1.5) * (rx+1 .5) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp(n* (rx+4.5) * (rx+4.5) )+exp(n* (rx+5.5) * (rx+5 .5) ) + 
exp(n* (rx+6. 5) * (rx+6. 5) )+exp(n* (rx+7.5) * (rx+7.5) ) ) ) ; 



L_dl = log{ (exp(n* (rx+3. 5) * (rx+3. 5) ) +exp (n* (rx+2.5) * (rx+2.5) ) + 
exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 .5) * (rx-1.5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) / 
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{exp(n* (rx-4.5) * (rx-4.5) )+exp(n* (rx-5.5) * (rx-5 .5) ) + 
exp ( n* ( rx- 6 . 5 ) * { rx- 6 . 5 ) ) +exp { n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) + 
exp(n* (rx+4.5) * (rx+4.5) )+exp(n* (rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp(n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7 . 5) * (rx+7 . 5) ) ) ) ; 

L_d2 = log((exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp{n* (rx+1.5) * (rx+1.5) ) +exp (n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* (rx-6. 5)* (rx-6. 5) ) +exp (n* (rx-7 .5) * (rx-7 . 5) ) ) / 
( exp ( n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) +exp ( n* ( rx+4 . 5 ) * { rx+4 . 5 ) ) + 
exp ( n* { rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+2 . 5 ) * { rx+2 . 5 ) ) + 
exp { n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * { rx-3 . 5 ) ) + 
exp<n* (rx-4.5) * (rx-4 .5) ) +exp (n* (rx-5.5) * (rx-5.5) ) ) ) ; 

L_d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* { rx+2 . 5 ) * < rx+2 . 5 ) ) + 
exp (n* (rx-2. 5) * ( rx-2 . 5 ) ) +exp (n* ( rx-1 . 5 ) * (rx-1.5) ) + 
exp (n* ( rx-6 . 5 ) * ( rx-6 . 5 ) ) +exp (n* ( rx-5 . 5 ) * { rx-5 . 5 ) ) ) / 
(exp (n* (rx+7 .5) * (rx+7.5) )+exp(n* (rx+4.5) * (rx+4 .5) ) + 
exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp (n* ( rx-3 . 5 ) * (rx-3. 5) ) + 
exp(n* (rx-4.5)* (rx-4.5) > +exp (n* (rx-7 . 5) * (rx-7 . 5) ) ) ); 

Dl_data[i+8] = L_dO; 

Dl_data[i+9] = L_dl; 

Disparity [i+7] = L_d2; 

D2_parity[i+9] = L_d3; 

Dl_parity[i+8] = 0; 

Dl_parity [i+9] = 0; 

D2_parity [i+7] = 0; 

D2_parity [i+83 = 0; 

i = i+9; 

} 

/* 

* interleave data: 
*/ 

r_ileav (Dl_data, rule); 
#endif 



#ifdef R68_256QAM 
/* 

* Channel: 

* dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) : 
* 

* 0010 0011 0001 0000 0100 0101 0111 0110 

* -7.5 -6.5 -5.5 -4.5 -3.5 -2.5 -1.5 -0.5 

* 1010—1011—1001—1000—1100 — 1101—1111—1110 

* 7.5 6.5 5.5 4.5 3.5 2.5 1.5 0.5 

* Channel: we transmit two 16AM symbols to emulate a 256QAM symbol. 

* 6 info bits and 2 parity bits are mapped to one 256QAM symbol which in 

* turn is simulated as 2 16AM symbols to achieve 6bit/s/Hz. 
* 

* INT_SIZE to be a multiple of 6 
*/ 

n = (-1.0) / (2 * SIGMA_68_256QAM * SIGMA_68_256QAM) ; 



/* 

* deinterleave data: 
*/ 

ford = 0; i < INT_SIZE; i++) 

data_d[i] = data[i]; 
r_deileava (data_d, rule) ; 

for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data_d[ij ; 
dl - data_d[i+l] ; 



58 



COMPUTER PROGRAM LISTING APPENDIX 



d2 = data_d[i+2] ; 
d3 = EnclEi] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0.5) : (0.5-d3) ) 
tx = (dO 0 ? (tx - 4): {4 - tx)); 
rx = tx + SIGMA_68_256QAM * gasdevO; 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp ( n* { rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx- 3 . 5 ) ) + 
exp{n* (rx-4 .5) * (rx-4 .5) ) +exp (n* (rx-5 .5) * (rx-5.5) ) + 
exp(n*(rx-6.5)*(rx-6.5))+exp(n*(rx-7. 5)* (rx-7.5)))/ 
(exp (n* (rx+0 .5) * (rx+0 . 5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5) ) + 
exp(n* (rx+2.5) * (rx+2 . 5) ) +exp <n* (rx+3. 5) * (rx+3. 5) ) + 
exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp (n* ( rx+5 . 5 ) * { rx+5 . 5 ) ) + 
exp(n* (rx+6.5)* (rx+6.5) )+exp(n* (rx+7. 5) * (rx+7. 5) ) ) ) ; 

Ljdl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5)*(rx-0.5) )+exp(n*(rx-1.5)*(rx-1.5) ) + 
exp (n* { rx-2 . 5 ) * (rx-2 . 5 ) ) +exp (n* (rx-3 . 5) * (rx-3 . 5 ) ) ) / 
(exp(n* (rx-4. 5) * (rx-4 .5) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7.5) * (rx-7.5) ) + 
exp (n* { rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp (n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp (n* (rx+6.5) * (rx+6.5) ) +exp(n* (rx+7.5) * (rx+7 .5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+7.5) * (rx+7.5) ) +exp (n* (rx+6 . 5 ) * ( rx+6 . 5 ) ) + 
exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp (n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp (n* (rx-1 . 5) * ( rx-1 . 5 ) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7.5) * (rx-7 .5) ) ) / 
( exp (n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) +exp (n* (rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp(n* (rx-2. 5)* (rx-2. 5) )+exp(n* (rx-3 .5) * (rx-3. 5) ) + 
exp(n* (rx-4. 5) * (rx-4 .5) ) +exp (n* (rx-5 .5) * (rx-5.5) ) ) ) ; 

L_d3 - log((exp(n*(rx+5.5)Mrx+5.5))+exp(n*(rx+6.5)*(rx+6.5)} + 
exp(n* (rx+1. 5) * (rx+1. 5) )+exp(n* (rx+2.5) * (rx+2.5) ) + 
exp(n* (rx-2. 5) * (rx-2 . 5) ) +exp (n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-5.5) * (rx-5.5) ) ) / 
(exp (n* (rx+7 .5) * (rx+7.5) )+exp(n* (rx+4. 5) * (rx+4 .5) ) + 
exp (n* (rx+3. 5) * (rx+3. 5) )+exp (n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx-3. 5) * (rx-3. 5) ) + 
exp(n* (rx-4. 5) * (rx-4. 5) )+exp(n* (rx-7.5) * (rx-7.5) ) ) ) ; 



Dl_data[i] 




L dO; 


Dl_data[i+1] 




L dl; 


Dl_data[i+2] 




L d2; 


Dl_parity [i] 




L d3; 


Dl_parity [i+1] 




0; 


Dl_parity[i+2] 




0; 


D2__parity [i] 




0; 


D2 parity [i+1] 




0; 


D2_parity [i+2] 




0; 


/* symbol 2 */ 







dO = data_d[i+3] ; 

dl = data_d[i+4] ; 
d2 = data_d[i+5] ; 
d3 = Enc2 [i+3] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) : (0 . 5-d3) 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_68_256QAM * gasdevO; 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* (rx-2. 5)* (rx-2. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) + 
exp (n* (rx-4. 5) * (rx-4. 5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp (n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp { n* ( rx+ 1 . 5 ) * { rx+1 . 5 ) ) + 
exp(n* (rx+2.5) * (rx+2 .5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
exp(n* (rx+4. 5) * (rx+4. 5) ) +exp(n* (rx+5. 5) * (rx+5. 5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7 . 5) * (rx+7 . 5) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp(n* (rx+1. 5) * (rx+1. 5) )+exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) ) +exp(n* (rx-1. 5) * (rx-1 .5) } + 
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exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* ( rx-3 . 5 ) * (rx-3.5) ) ) / 
( exp (n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* { rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp (n* (rx-6.5)* (rx-6.5) ) +exp (n* (rx-7 . 5 ) * (rx-7 . 5) ) + 
exp (n* (rx+4 . 5} * (rx+4 . 5) ) +exp (n* (rx+5 . 5) * (rx+5 . 5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp(n* (rx+7.5) * (rx+7. 5) ) ) ) ; 

L_d2 = log( (exp (n* (rx+7. 5) * (rx+7 .5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 
exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5)*(rx-0.5) )+exp(n* (rx-1 .5) * (rx-1 .5) ) + 
exp(n* (rx-6.5)*{rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) )/ 
(exp(n* (rx+5. 5) * ( rx+5 . 5 ) ) +exp (n* (rx+4. 5) * (rx+4. 5) ) + 
exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* { rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp (n* (rx-2.5) * (rx-2 . 5 ) ) +exp (n* (rx-3.5) * (rx-3.5) ) + 
exp (n* (rx-4 .5) * (rx-4. 5) ) +exp (n* (rx-5. 5) * (rx-5. 5) ) ) ) ; 

L_d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp (n* (rx+1. 5) * (rx+1. 5) ) +exp <n* (rx+2 .5) * (rx+2. 5) ) + 
exp (n* ( rx-2 . 5 ) * { rx-2 . 5 ) ) +exp (n* (rx-1 . 5 ) * ( rx-1 . 5 } ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-5. 5) * (rx-5. 5) ) ) / 
( exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp(n* (rx+3. 5) * (rx+3. 5) ) +exp (n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4. 5) * (rx-4 .5) ) +exp (n* (rx-7.5) * (rx-7.5) ) ) ) ; 
Dl_data[i+3] = L_dO; 
Dl__data[i+4] = L_dl; 
Dl_data[i+5] = L_d2; 
D2_parity [i+3] = L_d3; 
D2_parity[i+4] = 0; 
D2_parity[i+5] = 0; 
Dl_parity[i+3] = 0; - 
Dl_parity[i+4] = 0; 
Dl_parity[i+5] = 0; 

i = i+5; 

} 

/* 

* interleave data: 
*/ 

r_ileav (Dl_data, rule); 
#endif 



#ifdef R69_512QAM 
/* 

* Interleaver should be a multiple of 12, e.g., 6144 

* Q dimension: 

* dO is MSB and d4 is LSB in 32AM: <d0, dl, d2, d3, d4) : 



* 


00010- 


-00011- 


-00001- 


-00000- 


-00100- 


-00101- 


-00111- 


-00110 


k 
■k 


-15.5 


-14.5 


-13.5 


-12.5 


-11.5 


-10.5 


-9.5 


-8.5 


* 


01010- 


-01011- 


-01001- 


-01000- 


-01100- 


-01101- 


-01111- 


-OHIO 


•k 
* 


-0.5 


-1.5 


-2.5 


-3.5 


-4.5 


-5.5 


-6.5 


-7.5 


* 


11010- 


-11011- 


-11001- 


-11000- 


-11100- 


-11101- 


-11111- 


-11110 


* 
* 


0.5 


1.5 


2.5 


3.5 


4.5 


5.5 


6.5 


7.5 


* 


10010- 


-10011- 


-10001- 


-10000- 


-10100- 


-10101- 


-10111- 


-10110 


* 


15.5 


14.5 


13.5 


12.5 


11.5 


10.5 


9.5 


8.5 



k 



* I dimension: 



* dO 

k 


is MSB and d3 is 


LSB in 


16AM: 


(d0,dl 


d2,d3) : 






k 


0010 0011— 


-0001— 


-0000- 


—0100- 


— 0101 — 


-0111- 


—0110 


k 


-7.5 -6.5 


-5.5 


-4.5 


-3.5 


-2.5 


-1.5 


-0.5 


k 
k 


1010 1011— 


-1001— 


-1000- 


— 1100- 


— -1101— 


-1111- 


—1110 


k 


7.5 6.5 


5.5 


4.5 


3.5 


2.5 


1.5 


0.5 
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/* 

* deinterleave data: 
*/ 

for(i = 0; i < INT_SIZE; 

data_d[i] = data[i]; 
r deileava (data_d, rule); 



i++) 



for(i = 0 
{ 

/* 

dO 
dl 
d2 
d3 
d4 
tx 



i < INT SIZE; 



symbol 1, Q dimension: 32AM */ 
= data_d[i] ; 
= data_d[i+l] ; 
= data_d[i+2] ; 
= data_d[i+3] ; 

- Encl [i] ; 

- 2*d2 - 2*d3 + 
tx = (dl == 0 
tx = (dO == 0 

rx = tx + SIGMA_32AM_of_512QAM * 
n = (-1.0) / (2 * SIGMA_32AM_of__ 
L_d0 = log ( (exp (n* (rx-0. 5) * (rx-0. 5 



exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

L__dl = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d2 = log{ (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp {n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



4*d2*d3 - 1.0 + (( (2*d2-l)*(2*d3-l) )<0?(d4-0.5) : (0.5-d4) ) 
(tx - 4) : (4 - tx) ] 
(tx - 8} : (8 - tx) ] 

gasdev ( ) ; 

512QAM * SIGMA_32AM_of_512QAM) ; 
)+exp(n*(rx-1.5)*(rx-1.5)) + 
rx-2.5) * (rx-2.5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) + 
rx-4.5) * (rx-4.5) ) +exp(n* (rx-5.5) * (rx-5.5) ) + 
rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7 .5) ) + 
rx-8.5) * (rx-8.5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
rx-10.5) * (rx-10 .5) ) +exp (n* (rx-11 . 5) * (rx-11 . 5) ) + 
rx-12 .5) * (rx-12 .5) ) +exp (n* (rx-13 .5) * (rx-13. 5) ) + 
rx-14 .5) * (rx-14 .5) ) +exp (n* (rx-15 .5) * (rx-15.5) ) ) / 
rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp (n* { rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
rx+2. 5) * {rx+2 .5) ) +exp (n* (rx+3 .5) * (rx+3.5) ) + 
rx+4 . 5 ) * (rx+4 . 5) ) +exp <n* (rx+5 . 5) * ( rx+5 . 5 ) ) + 
rx+6.5) * (rx+6.5) ) +exp (n* (rx+7 .5) * (rx+7.5) ) + 
rx+8 . 5 ) * ( rx+8 . 5 ) ) +exp (n* ( rx+9 . 5 ) * ( rx+9 . 5 ) ) + 
rx+10. 5) * (rx+10. 5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
rx+12.5) * (rx+12.5) )+exp(n* ( rx+13 . 5 ) * < rx+13 . 5 ) ) + 
rx+14. 5) * (rx+14 



(rx-0. 
rx-2 . 
rx-4 . 
rx-6 . 
rx+0 . 
rx+2 . 
rx+4 . 
rx+6 . 
rx-8 . 
rx-10 
rx-12 
rx-14 
rx+8 
rx+10 
rx+12 
rx+14 



.5) * (rx-0. 
5) * (rx-2.5 
5) * (rx-4.5 
5) * (rx-6.5 
5)*(rx+0.5 
5) * (rx+2.5 
5)*(rx+4.5 
5) * (rx+6.5 
5) * (rx-8.5 
.5)*(rx-10 
.5)*(rx-12 
.5)*(rx-14 
5)*(rx+8.5 
.5)* (rx+10 
.5)*(rx+12 
.5) * (rx+14 



(rx+4. 5)* (rx+4. 
rx+6.5) * (rx+6.5 
rx+8. 5) * (rx+8 .5 
rx+10.5) * (rx+10 
rx-4.5)*(rx-4.5 
rx-6.5) * (rx-6.5 
rx-8 .5) * (rx-8 .5 
rx-10.5)* (rx-10 
rx+0 .5) * (rx+0. 5 
rx+2 .5) * (rx+2 .5 
rx+12.5)* (rx+12 
rx+14. 5)*(rx+14 
rx-0. 5) * (rx-0. 5 
rx-2.5)* (rx-2.5 
rx-12. 5) * (rx-12 



5) )+exp(n* (rx+15.5)* (rx+15.5) ) ) ) ; 



5) )+exp(n* frx-1.5) * (rx-1.5) ) + 
) +exp (n* (rx-3.5) * (rx-3.5) ) + 
)+exp(n*(rx-5.5)*(rx-5.5) ) + 
) +exp(n* (rx-7.5) * (rx-7.5) ) + 
) +exp(n* (rx+1. 5) * (rx+1. 5) ) + 
)+exp(n*(rx+3.5)*(rx+3.5) ) + 
)+exp(n*(rx+5.5)*(rx+5.5) ) + 
)+exp(n* (rx+7.5) * (rx+7.5) ) ) / 
)+exp(n* (rx-9.5) * (rx-9.5) ) + 
5) )+exp(n* (rx-11. 5) * (rx-11. 5) ) + 
5) )+exp(n* (rx-13. 5) * (rx-13. 5) ) + 
5) )+exp(n* (rx-15 .5) * (rx-15.5) ) + 
) +exp(n* (rx+9. 5) * (rx+9. 5) ) + 
5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
5) )+exp(n* (rx+15.5) * (rx+15.5) ) ) ) ; 



5))+exp(n*(rx+5.5)*(rx+5.5)) + 
)+exp(n* (rx+7.5)* (rx+7.5) ) + 
)+exp(n* (rx+9. 5) * (rx+9. 5) ) + 
5))+exp(n*(rx+11.5)*(rx+11.5)) + 
)+exp{n* (rx-5.5)* (rx-5.5)) + 
) +exp (n* (rx-7 .5) * (rx-7.5) ) + 
)+exp (n* (rx-9.5) * (rx-9.5) ) + 
5) )+exp(n* (rx-11. 5) * (rx-11. 5) ) ) / 
)+exp(n*(rx+1.5)*(rx+1.5) ) + 
)+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
5))+exp(n*(rx+15.5)*(rx+15.5)) + 
)+exp(n* (rx-1.5) * (rx-1.5) ) + 
)+exp(n* (rx-3.5) * (rx-3.5) ) + 
5) )+exp(n* (rx-13. 5) * (rx-13. 5) ) + 
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exp (n*( rx-14. 5} * (rx-14 . 5) ) +exp (n* (rx-15 . 5) * (rx-15 . 5) ) ) ) ; 



L__d3 = log( (exp(n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 
exp (n* 
exp (n* 
(exp {n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d4 = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



(rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
rx+6 . 5 ) * ( rx+ 6.5)) +exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) + 
rx+8.5) * (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
rx+14.5) * (rx+14 .5) ) +exp (n* (rx+15.5) * (rx+15.5) ) 
rx-0 . 5) * (rx-0 . 5) ) +exp (n* (rx-1 . 5} * 
rx-6 . 5) * (rx-6 . 5) ) +exp <n* (rx-7 . 5) * 
rx-8 . 5 ) * ( rx-8 . 5 ) ) +exp (n* ( rx-9 . 5 } * 
rx-14. 5) * {rx-14. 5) )+exp(n* (rx-15. 
rx+4.5)*(rx+4.5) ) +exp (n* (rx+5 .5) * 
rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * 
rx+12.5)* (rx+12.5) )+exp(n* (rx+13. 
rx+10.5)* (rx+10.5) )+exp(n* (rx+11. 
rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* ( rx-5 . 5 ) * 
rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * 
rx-12 . 5) * (rx-12 . 5) ) +exp (n* (rx-13 . 
rx-10 . 5) * < rx-10 . 5 ) ) +exp (n* (rx-10 . 



(rx-1. 5)) + 
(rx-7. 5)) + 
(rx-9. 5)) + 
5)*(rx-15.5) ) )/ 
(rx+5. 5)) + 
(rx+3. 5)) + 
5)*(rx+13.5) ) + 
5)*(rx+11.5)) + 
(rx-5.5)) + 
(rx-3. 5}) + 
5)*(rx-13.5)) + 
5)*(rx-10.5)))); 



(rx+2 .5) * (rx+2 .5) ) +exp (n* (rx+1.5) * (rx+1 .5) ) + 
rx+6. 5) * (rx+6. 5) ) +exp (n* (rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
rx+10.5)* (rx+10.5) ) +exp (n* ( rx+9 . 5) * (rx+9.5) ) + 
rx+14. 5) * (rx+14. 5) ) +exp <n* ( rx+13 . 5 ) * (rx+13. 5) ) + 
rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx- 1 . 5 ) * { rx- 1 . 5 ) ) + 
rx-6. 5) *(rx-6.5) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
rx-10. 5) * (rx-10. 5) ) +exp (n* ( rx-9 . 5) * (rx-9. 5) ) + 
rx-14. 5) * (rx-14. 5) )+exp{n* (rx-13. 5) * (rx-13. 5) ) ) / 
rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp (n* ( rx+8 . 5 ) * ( rx+8 . 5 ) ) + 
rx+12.5)* (rx+12.5) ) +exp (n* (rx+11 . 5 ) * ( rx+11 . 5) ) + 
rx+0.5) * (rx+0.5) ) +exp(n* (rx+15.5) * (rx+15.5) ) + 
rx-4. 5) * (rx-4. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) + 
rx-7. 5) * (rx-7. 5) ) +exp (n* (rx-8 . 5) * (rx-8 . 5) ) + 
rx-12. 5)* (rx-12. 5) )+exp(n* (rx-11.5) * (rx-11.5) ) + 
rx-0. 5) * (rx-0 .5) ) +exp (n* (rx-15 . 5) * (rx-15 . 5) ) ) ) ; 



Dl_data[i] = L_<*0; 

Dl_data[i+1] = L_dl; 

Dl_data[i+2] = L_d2; 

Dl_data[i+3] - L_d3; 

Dl_parity[i] = L_d4; 

Dl_parity[i+1] - 0.0; 

Dl_parity[i+2] = 0.0; 

Dl_parity[i+3] = 0.0; 

Dl_parity[i+5] = 0.0; 

/* symbol 1, I dimension: 16AM */ 
dO = data_d[i+4] ; 
dl = data_d[i+5] ; 
d2 = Encl [i+4] ; 
d3 = Enc2[i+2] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0. 5) : (0 .5-d3) ) 
tx = (dO == 0 ? (tx -4): (4 - tx) ) ; 
rx = tx + S I GMA_1 6 AM_o f _5 1 2 QAM * gasdevO; 

n = (-1.0) / (2 * S I GMA_1 6 AM_o f _5 1 2 QAM * SIGMA_16AM_of_512QAM) ; 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2. 5)* (rx-2. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) + 
exp(n* (rx-4. 5) * (rx-4. 5) )+exp (n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6. 5) * (rx-6. 5) ) +exp (n* (rx-7. 5) * (rx-7. 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp ( n* { rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp(n* (rx+4. 5) * (rx+4 .5) )+exp(n* (rx+5. 5)* (rx+5. 5) ) + 
exp(n* (rx+6. 5) * (rx+6. 5) ) +exp (n* (rx+7 . 5) * (rx+7. 5) ) ) ) ; 

L_dl - log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp(n* (rx+1.5) * (rx+1 . 5) ) +exp (n* (rx+0 . 5 ) * (rx+0.5) ) + 
exp(n* (rx-0. 5) * (rx-0 .5) ) +exp (n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n* (rx-2. 5) * (rx-2 . 5) ) +exp (n* (rx-3. 5) * (rx-3. 5) ) ) / 
(exp (n* (rx-4 .5) * (rx-4. 5) )+exp(n* (rx-5.5) * (rx-5 .5) ) + 
exp ( n* ( rx- 6 . 5 ) * ( rx- 6 . 5 ) ) +exp ( n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) + 
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exp (n* (rx+4 . 5) * (rx+4 . 5) ) +exp (n* (rx+5 .5) * (rx+5 . 5) ) + 
exp(n*(rx+6.5)* (rx+6.5) ) +exp(n* (rx+7 . 5) * (rx+7 . 5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+7. 5) * (rx+7. 5) )+exp(n* (rx+6.5)* (rx+6.5) ) + 
exp(n* (rx+1.5) * (rx+1 .5) ) +exp (n* ( rx+0 . 5) * (rx+0.5) ) + 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* (rx-6.5)* (rx-6.5) )+exp(n* (rx-7.5) * (rx-7 .5) ) } / 
(exp (n* (rx+5 .5) * (rx+5. 5) ) +exp(n* (rx+4 .5) * (rx+4. 5) ) + 
exp ( n* { rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp (n* (rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp(n* (rx-4 .5) * (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) ) ) ; 

L_d3 = log( (exp(n* (rx+5. 5) * (rx+5. 5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 
exp (n* ( rx+1 . 5 ) * { rx+1 . 5 ) ) +exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp(n* (rx-2. 5) * (rx-2 .5) ) +exp (n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-5 . 5 } * { rx-5 . 5 ) ) ) / 
(exp(n* (rx+7. 5) * (rx+7 .5) ) +exp(n* (rx+4 .5) * (rx+4 .5) ) + 
exp(n* (rx+3. 5) * (rx+3 . 5) ) +exp <n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3 . 5 ) * (rx-3 . 5) ) + 
exp (n* (rx-4.5)* (rx-4. 5) )+exp(n* (rx-7.5)* (rx-7. 5) ) ) ) ; 



Dl_data [i+4] 
Dl_data[i+5] 
Dl_parity [i+4] 
D2_parity[i+2] 
D2_parity [i] 
D2_parity[i+1] 
D2_parity[i+3] 
D2_parity [i+4] 
D2_parity [i+5] 



: L_d0; 
= L_dl; 

L_d2; 

L_d3; 

0.0; 

0.0; 

0.0; 

0.0; 

0.0; 



/* 

dO 

dl 
d2 
d3 
d4 
tx 
tx 

tx = 
rx 
n 

L dO 



symbol 2, Q dimension: 32AM */ 
= data_d[i+6] ; 
= data_d[i+7] ; 
= data_d[i+8] ; 
= data_d[i+9]; 
= Enc2 [i+6] ; 
= 2*d2 - 2*d3 + 
= (dl == 0 ? (tx 
= (dO == 0 ? (tx 



(( (2*d2-l)*(2*d3-l))<0?(d4-0.5) : (0.5-d4)) 



4*d2*d3 - 1.0 + 

- 4) : (4 - tx) ) ; 

- 8) : (8 - tx) ) ; 

tx + SIGMA_32AM_of_512QAM * gasdevf); 

(-1.0) / (2 * S I GMA_3 2 AM_o f _5 1 2 QAM * SIGMA_32AM_of_512QAM) ; 
log ( (exp (n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) + 
rx-2.5)*(rx-2.5) ) +exp (n* (rx-3 . 5 ) * (rx-3 . 5 ) ) + 
rx-4 .5) * (rx-4 .5) )+exp(n* (rx-5.5) * (rx-5 .5) ) + 
rx-6.5) * (rx-6.5) ) +exp (n* (rx-7.5) * (rx-7 .5) ) + 
rx-8 .5) * (rx-8.5) )+exp (n* (rx-9.5) * (rx-9.5) ) + 
rx-10 .5) * (rx-10.5) ) +exp(n* (rx-11.5) * (rx-11 .5) ) + 
rx-12.5)* (rx-12.5) ) +exp (n* (rx-13 . 5) * (rx-13 . 5) ) + 
rx-14.5) * (rx-14.5) )+exp(n* (rx-15.5) * (rx-15.5) ) ) / 
rx+0. 5) * (rx+0 .5) ) +exp (n* (rx+1.5) * (rx+1.5) ) + 
rx+2. 5) * (rx+2 .5) ) +exp (n* ( rx+3 . 5) * (rx+3. 5) ) + 
rx+4. 5) * (rx+4 .5) ) +exp (n* (rx+5 . 5) * (rx+5. 5) ) + 
rx+6.5)* (rx+6.5) )+exp(n* (rx+7. 5) * (rx+7. 5) ) + 
rx+8 .5) * (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
rx+10.5) * (rx+10.5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
rx+12.5) * (rx+12.5) )+exp(n* (rx+13.5) * (rx+13.5) 



(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



L dl 



log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp {n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 



rx+14.5) * (rx+14.5) ) +exp (n* ( rx+15 . 5) * (rx+15.5) ) ) ) j 



(rx-0.5) * (rx-0.5) ) +exp(n* (rx-1 
rx-2. 5) * (rx-2 .5) )+exp(n* (rx-3. 
rx-4.5) * (rx-4 .5) ) +exp (n* ( rx-5 . 
rx-6.5) * (rx-6.5) ) +exp (n* ( rx-7 . 
rx+0. 5) * (rx+0. 5) ) +exp (n* ( rx+1 . 
rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp (n* ( rx+3 . 
rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp ( n* ( rx+5 , 
rx+6.5) * (rx+6.5) )+exp(n* (rx+7. 
rx-8.5) * (rx-8.5) )+exp(n* (rx-9. 
rx-10.5) * (rx-10.5) ) +exp (n* (rx- 
rx-12 . 5 ) * ( rx-12 . 5 ) ) +exp (n* ( rx- 
rx-14 .5) * (rx-14 .5) ) +exp (n* (rx- 



.5)*(rx-1.5)) + 
5)*(rx-3.5)) + 
5)*(rx-5.5)) + 
5)*(rx-7.5)) + 
5)*(rx+1.5)) + 
5)*(rx+3.5)) + 
5) * (rx+5. 5) ) + 
5)*(rx+7.5) ) )/ 
5)*(rx-9.5)) + 
-11.5) * (rx-11.5) ) 
-13.5)*(rx-13.5)) 
-15.5)*(rx-15.5) ) 
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exp ( n* ( rx+8 . 5 ) * { rx+8 . 5 ) ) +exp ( n* ( rx+9 . 5 ) * ( rx+9 . 5 ) ) + 
exp (n* (rx+10.5)* (rx+10.5) )+exp(n* (rx+11 . 5) * (rx+11 . 5) ) + 
exp(n* (rx+12.5) * (rx+12.5) ) +exp (n* (rx+13.5) * (rx+13 .5) ) + 
exp(n* (rx+14.5)* (rx+14.5) )+exp(n* (rx+15 . 5 ) * (rx+15 . 5) ) ) ) ; 

L_d2 - log((exp(n*(rx+4.5)*(rx+4.5))+exp(n*(rx+5.5)*(rx+5.5)) + 
exp <n* ( rx+6 . 5 ) * ( rx+6 . 5 ) ) +exp (n* { rx+7 . 5 ) * ( rx+7 . 5 ) ) + 
exp (n* (rx+8 .5) * {rx+8. 5) ) +exp (n* (rx+9 .5) * (rx+9. 5) ) + 
exp (n* ( rx+10 . 5 ) * ( rx+10 . 5 ) ) +exp (n* ( rx+11 . 5 ) * ( rx+11 . 5 ) ) + 
exp (n* (rx-4 .5) * (rx-4. 5) ) +exp (n* (rx-5 .5} * (rx-5.5) ) + 
exp(n* (rx-6.5)* (rx-6.5) ) +exp (n* (rx-7 .5) * (rx-7.5) ) + 
exp(n*(rx-8.5)* (rx-8.5) ) +exp (n* (rx-9 . 5) * {rx-9 . 5 ) ) + 
exp(n* (rx-10.5) * (rx-10 . 5) ) +exp (n* {rx-11 .5) * (rx-11 .5) ) ) / 
(exp<n* (rx+0.5)* (rx+0.5) )+exp(n* (rx+1 .5) * (rx+1 . 5) ) + 
exp (n* (rx+2 .5) * (rx+2.5) ) +exp (n* (rx+3 . 5 ) * {rx+3 . 5 ) ) + 
exp(n* (rx+12.5) * (rx+12.5) ) +exp (n* (rx+13. 5) * (rx+13. 5) ) + 
exp(n* (rx+14.5) * (rx+14.5) ) +exp (n* (rx+15 . 5) * (rx+15 . 5) ) + 
exp (n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp (n* (rx-12.5) * (rx-12 .5) )+exp(n* (rx-13 .5} * (rx-13 . 5) ) + 
exp(n*(rx-14.5)*(rx-14.5) ) +exp (n* (rx-15 .5) * (rx-15 .5) ) )) 

L_d3 = log((exp(n*(rx+0.5)*(rx+0.5))+exp(n*(rx+1.5)*(rx+1.5) ) + 
exp(n* (rx+6. 5) * (rx+6. 5) ) +exp(n* (rx+7. 5) * (rx+7. 5) ) + 
exp ( n* ( rx+8 . 5 ) * ( rx+8 . 5 ) ) +exp ( n* ( rx+9 . 5 ) * { rx+9 . 5 ) ) + 
exp (n* (rx+14.5) * (rx+14.5) ) +exp (n* (rx+15. 5) * (rx+15. 5) ) + 
exp (n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1 .5) * (rx-1. 5) ) + 
exp (n* (rx-6.5)* (rx-6.5) ) +exp (n* { rx-7 . 5) * (rx-7 . 5 ) ) + 
exp (n* ( rx-8 . 5 ) * ( rx-8 . 5 ) ) +exp (n* ( rx-9 . 5 ) * ( rx-9 . 5 ) ) + 
exp(n*(rx-14.5)*(rx-14.5) )+exp(n* ( rx-15 . 5 ) * (rx-15 . 5) ) )/ 
(exp(n* (rx+4.5)* (rx+4.5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp (n* { rx+12 . 5 ) * ( rx+12 . 5 ) ) +exp (n* ( rx+13 . 5 ) * ( rx+13 . 5 ) ) + 
exp{n* (rx+10.5) * (rx+10.5) ) +exp (n* (rx+11.5) * (rx+11.5) ) + 
exp ( n* ( rx-4 . 5 ) * ( rx- 4.5)) +exp ( n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp(n* (rx-12.5)* (rx-12.5) ) +exp fn* (rx-13 .5) * (rx-13.5) ) + 
exp (n* (rx-10.5)* (rx-10.5) ) +exp (n* (rx-10 . 5) * (rx-10 . 5) ) ) ) 

L_d4 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* (rx+6 . 5 ) * (rx+6 . 5 ) ) +exp (n* (rx+5 . 5) * { rx+5 . 5) ) + 
exp(n* (rx+10.5) * (rx+10 . 5) ) +exp (n* (rx+9. 5) * (rx+9. 5) ) + 
exp(n* (rx+14.5)* (rx+14.5) )+exp(n* (rx+13 . 5 ) * ( rx+13 . 5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n* (rx-6.5) * (rx-6 . 5) ) +exp <n* (rx-5.5) * (rx-5.5) ) + 
exp (n* (rx-10.5) * (rx-10.5) )+exp(n* (rx-9. 5) * (rx-9. 5) ) + 
exp(n* (rx-14.5)*(rx-14.5) ) +exp (n* (rx-13 . 5) * (rx-13 . 5 ) ) ) / 
(exp (n* (rx+4 .5) * (rx+4 . 5 ) ) +exp (n* (rx+3 . 5) * (rx+3 . 5) ) + 
exp (n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* { rx+8 . 5 ) * ( rx+8 . 5 ) ) + 
exp (n* (rx+12 . 5) * ( rx+12 . 5) ) +exp (n* ( rx+11 . 5) * ( rx+11 . 5) ) + 
exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+15. 5) * (rx+15. 5) ) + 
exp (n* ( rx-4 . 5 ) * { rx-4 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx- 3 . 5 ) ) + 
exp(n* (rx-7.5) * (rx-7 .5) ) +exp (n* (rx-8 .5) * (rx-8.5) ) + 
exp(n* (rx-12.5) * (rx-12.5) )+exp(n* (rx-11 . 5 ) * { rx-11 . 5 ) ) + 
exp (n* (rx-0.5) * (rx-0 .5} )+exp(n* (rx-15 .5) * (rx-15 . 5) ) ) ) ; 



Dl_data[i+6] = L_dO; 

Dl_data[i+7] = L_dl; 

Dl_data[i+8] - L_d2 

Dl_data[i+9] = L_d3 

D2_parity [i+6] = L_d4 

D2_parity[i+7J = 0.0; 

D2_parity[i+8] - 0.0; 

D2_parity[i+9] - 0.0; 
D2_parity[i+ll] = 0.0; 

/* symbol 2, I dimension: 16AM 
d0 = data_d[i+10] ; 
dl = data_d[i+ll] ; 
d2 = Enc2[i+10] ; 
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d3 = Encl[i+8] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( { (2*dl-l) * (2*d2-l) )<0? (d3-0 .5) : (0 .5-d3) ) 
tx = (dO == 0 ? (tx -4): (4 - tx)); 
rx = tx + SIGMA_16AM_of_512QAM * gasdev(); 

n = (-1.0) / (2 * S I GMA_1 6 AM_o f _5 1 2 QAM * SIGMA_16AM_of_512QAM) ; 

L_d0 = iog((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* { rx-3 . 5 ) * ( rx- 3 . 5 ) } + 
exp (n* ( rx-4 . 5 ) * (rx-4 . 5 ) ) +exp (n* (rx-5 . 5) * ( rx-5 . 5 ) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7 .5) * (rx-7 .5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1.5) * (rx+1.5) ) + 
exp { n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp (n* (rx+4 .5) * (rx+4 .5) ) +exp (n* (rx+5.5) * (rx+5.5) ) + 
exp (n* (rx+6.5) * (rx+6.5) ) +exp(n* ( rx+7 . 5 ) * ( rx+7 . 5) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*<rx+2.5)) + 
exp (n* (rx+1.5) * (rx+1.5) ) +exp(n* (rx+0 .5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1 .5) * (rx-1 .5) ) + 
exp ( n* ( rx-2 . 5 ) * { rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx- 3 . 5 ) ) ) / 
(exp(n* (rx-4. 5) * (rx-4. 5) )+exp(n* (rx-5. 5) * (rx-5. 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7 .5) * (rx-7 . 5) ) + 
exp(n* (rx+4. 5) * (rx+4. 5) ) +exp (n* (rx+5.5) * (rx+5.5) ) + 
exp { n* ( rx+ 6 . 5 ) * ( rx+6 . 5 ) ) +exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) ) ) ; 

L_d2 = log((exp(n*(rx+7.5)*<rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp (n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0 .5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7 .5) * (rx-7. 5) ) ) / 
(exp(n* (rx+5.5) * (rx+5 .5) ) +exp (n* (rx+4 .5) * (rx+4 .5) ) + 
exp (n* { rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp (n* (rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp (n* (rx-4 .5) * (rx-4 .5) ) +exp(n* (rx-5. 5) * (rx-5 .5) ) ) ) ; 

L_d3 « log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp (n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+2. 5) * (rx+2 .5} ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-1 . 5 ) * ( rx-1 . 5 ) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-5. 5) * (rx-5. 5) ) ) / 
( exp (n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp(n* (rx+3. 5) * (rx+3. 5) ) +exp (n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) + 
exp(n*(rx-4.5)*(rx-4.5) ) +exp (n* (rx-7 . 5) * (rx-7 . 5) ) ) ) ; 

Dl_data[i+10] = L_d0; 

Dl_data[i+ll] = L_dl; 

D2_parity[i+10] = L_d2; 

Dl_parity[i+8] = ^„^3; 

Dl_parity[i+6] = 0.0; 

Dl_parity[i+7] = 0.0; 

Dl_parity[i+9] = 0.0; 

Dl_parity[i+10] = 0.0; 

Dl_parity[i+ll] = 0.0; 

i = i+11; 

} 

/* 

* interleave data: 
*/ 

r ileav (Dl_data, rule); 



#endif 



#ifdef R710_1024QAM 
/* 

* Use S2044_33_l interleaver (multiple of 14) 
* 

* I and Q dimensions : 

* dO is MSB and d4 is LSB in 32AM: (dO , dl, d2, d3, d4 ) : 

* 00010— 00011— 00001— 00000— 00100— 00101--00111— 00110 

* -15.5 -14.5 -13.5 -12.5 -11.5 -10.5 -9.5 -8.5 

* 

* 01010—01011—01001—01000—01100—01101—01111—01110 
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-0.5 


-1.5 


-2.5 


-3.5 


-4.5 


-5.5 


-6.5 


-7.5 


11010- 


-11011- 


-11001- 


-11000- 


-11100- 


-11101- 


-11111- 


-11110 


0.5 


1.5 


2.5 


3.5 


4.5 


5.5 


6.5 


7.5 


10010- 


-10011- 


-10001- 


-10000- 


-10100- 


-10101- 


-10111- 


-10110 


15.5 


14.5 


13.5 


12.5 


11.5 


10.5 


9.5 


8.5 



* 

*/ 

n = (-1.0) / (2 * SIGMA_710_1024QAM * SIGMA_710_1024QAM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1, Q dimension */ 
d0 = data[ij ; 
dl = data[i+l] ; 
d2 = data[i+2] ; 
d3 = data[i+3] ; 
d4 = Encl [i] ; 

tx = 2*d2 - 2*d3 + 4*d2*d3 - 1.0 + ( ( (2*d2-l) * (2*d3-l) )<0? (d4-0 . 5) : (0 .5-d4) ) 
tx = (dl == 0 ? (tx - 4): {4 - tx) ) ; 
tx = (dO == 0 ? (tx -8): (8 - tx) ) ; 
rx = tx + SIGMA_710_1024QAM * gasdev ( ) ; 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* (rx-2 .5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4.5)* (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7.5) * (rx-7.5) ) + 
exp(n* (rx-8.5) * (rx-8 . 5) ) +exp (n* (rx-9.5) * (rx-9.5) ) + 
exp(n* (rx-10.5) * (rx-10 . 5) ) +exp (n* (rx-11.5) * (rx-11.5) ) + 
exp (n* (rx-12. 5)* (rx-12.5) )+exp(n* (rx-13.5) * (rx-13.5) ) + 
exp <n* (rx-14 . 5) * (rx-14 . 5) ) +exp (n* (rx-15 . 5) * (rx-15 . 5) ) ) / 
(exp (n* (rx+0 .5) * (rx+0.5) )+exp(n* (rx+1 .5) * (rx+1.5) ) + 
exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp(n* (rx+4 .5) * (rx+4.5) ) +exp (n* (rx+5 .5) * (rx+5.5) ) + 
exp(n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7.5) * (rx+7.5) ) + 
exp(n* (rx+8.5) * (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
exp(n* (rx+10.5) * (rx+10.5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
exp (n* (rx+12 . 5) * (rx+12 . 5) ) +exp {n* (rx+13 . 5) * (rx+13 . 5) ) + 
exp(n* (rx+14.5)* (rx+14.5) )+exp(n* (rx+15 . 5) * ( rx+15 . 5) ) ) ) ; 

L_dl - log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*{rx-1.5)) + 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4.5) * (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) + 
exp (n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx+2 . 5) * (rx+2 . 5) ) +exp (n* (rx+3 . 5 ) * (rx+3 . 5) ) + 
exp { n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp ( n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp (n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7 . 5) * (rx+7 .5) ) ) / 
(exp (n* (rx-8.5) * (rx-8.5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
exp(n* (rx-10.5)* (rx-10.5) ) +exp (n* (rx-11 .5) * (rx-11 .5) ) + 
exp <n* ( rx-12 . 5 } * ( rx-12 . 5 ) ) +exp (n* ( rx-13 . 5 ) * ( rx-13 . 5 ) ) + 
exp (n* (rx-14. 5) * (rx-14. 5) )+exp(n* (rx-15. 5) * (rx-15. 5) ) + 
exp{n* (rx+8.5) * (rx+8.5) ) +exp (n* (rx+9.5) * (rx+9 .5) ) + 
exp (n* (rx+10.5) * (rx+10.5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
exp (n* (rx+12 . 5 ) * (rx+12 . 5 ) ) +exp (n* (rx+13 . 5 ) * (rx+13 . 5 ) ) + 
exp (n* (rx+14.5) * (rx+14.5) )+exp(n* (rx+15.5) * (rx+15 .5) ) ) ) ; 

L_d2 = log((exp(n*(rx+4.5)*(rx+4.5))+exp(n*(rx+5.5)*(rx+5.5)) + 
exp(n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7 .5) * (rx+7.5) ) + 
exp ( n* { rx+8 . 5 ) * { rx+8 . 5 ) ) +exp ( n* ( rx+9 . 5 ) * { rx+9 . 5 ) ) + 
exp(n* (rx+10.5) * (rx+10 . 5 ) ) +exp (n* (rx+11.5) * (rx+11.5) ) + 
exp(n* (rx-4.5) * (rx-4 .5) ) +exp (n* ( rx-5 . 5 ) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) + 
exp(n* (rx-8.5) * (rx-8.5) ) +exp (n* (rx-9 . 5 ) * (rx-9 . 5 ) ) + 
exp (n* (rx-10.5) * (rx-10.5) ) +exp (n* (rx-11.5) * (rx-11.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2. 5)* (rx+2. 5) ) +exp <n* (rx+3 .5) * (rx+3. 5) ) + 
exp (n* ( rx+12 . 5 ) * ( rx+12 . 5 ) ) +exp (n* ( rx+13 . 5 ) * { rx+13 . 5 ) ) + 
exp{n* (rx+14.5) * (rx+14 . 5) ) +exp (n* (rx+15.5) * (rx+15.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* ( rx-1 . 5 ) * (rx-1.5) ) + 
exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* { rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
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exp (n* (rx-12 .5) * {rx-12 .5) ) +exp (n* (rx-13 .5) * (rx-13 .5) ) + 
exp (n* (rx-14 . 5 ) * (rx-14 . 5) ) +exp (n* (rx-15 . 5) * (rx-15 . 5) ) ) ) ; 

L d3 = log((exp(n*(rx+0.5)*(rx+0.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp { n* ( rx+ 6 . 5 } * ( rx+6 . 5 ) ) +exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) + 
exp(n* (rx+8.5) * (rx+8 . 5) ) +exp (n* (rx+9 . 5) * {rx+9 . 5) ) + 
exp (n* (rx+14 .5) * (rx+14 .5) ) +exp (n* (rx+15 .5) * (rx+15 . 5) ) + 
exp (n* { rx-0 . 5 ) * { rx-0 . 5 ) ) +exp (n* ( rx-1 . 5 ) * ( rx-1 . 5 ) ) + 
exp (n* ( rx- 6 . 5 ) * ( rx-6 . 5 ) ) +exp (n* ( rx-7 . 5 ) * < rx-7 . 5 ) ) + 
exp(n*(rx-8.5)*(rx-8.5) ) +exp (n* (rx-9 .5) * {rx-9. 5) ) + 
exp {n* {rx-14 . 5) * (rx-14 . 5) ) +exp (n* {rx-15 . 5 ) * (rx-15 . 5) ) ) / 
{exp (n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp (n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp (n* ( rx+2 . 5 ) * { rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp (n* (rx+12 .5) * (rx+12 .5) ) +exp (n* (rx+13 . 5) * (rx+13 .5) ) + 
exp (n* (rx+10. 5)* {rx+10. 5) )+exp(n* (rx+11.5)* (rx+11.5) ) + 
exp(n* (rx-4.5) * (rx-4.5) )+exp{n* (rx-5 . 5) * ( rx-5 . 5 ) ) + 
exp (n* (rx-2 .5) * (rx-2 .5) ) +exp (n* (rx-3 .5) * (rx-3 . 5) ) + 
exp (n* (rx-12 . 5 ) * (rx-12 . 5 ) ) +exp (n* {rx-13 . 5 ) * (rx-13 . 5) ) + 
exp(n* (rx-10.5)* (rx-10.5) )+exp(n* (rx-10.5) * (rx-10.5) ) ) ) ; 

L d4 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp ( n* ( rx+6 . 5 ) * { rx+ 6 . 5 ) ) +exp (n* ( rx+5 . 5 } * ( rx+5 . 5 ) ) + 
exp (n* { rx+10 . 5 ) * (rx+10 . 5 ) ) +exp (n* ( rx+9 . 5 ) * (rx+9 . 5) ) + 
exp(n* (rx+14. 5)* {rx+14. 5) )+exp(n* ( rx+13 . 5 ) * {rx+13 . 5 ) ) + 
exp{n* {rx-2.5)*(rx-2.5) ) +exp (n* (rx-1 .5) * (rx-1. 5) ) + 
exp(n* (rx-6. 5) * (rx-6 . 5 ) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
exp (n* ( rx-10 . 5 ) * ( rx-10 . 5 ) ) +exp {n* { rx-9 . 5 ) * ( rx-9 . 5 ) ) + 
exp (n* (rx-14. 5)* (rx-14. 5) )+exp(n* (rx-13 . 5 ) * ( rx-13 . 5) ) )/ 
(exp (n* (rx+4 . 5) * (rx+4 . 5) ) +exp (n* (rx+3 .5) * (rx+3 . 5 ) ) + 
exp { n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* ( rx+8 . 5 ) * ( rx+8 . 5 ) ) + 
exp(n* (rx+12. 5)* (rx+12. 5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
exp (n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp (n* ( rx+15 . 5 ) * ( rx+15 . 5 ) ) + 
exp (n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* { rx-3 . 5 ) * { rx-3 . 5 ) ) + 
exp <n* ( rx-7 . 5 ) * ( rx-7 . 5 ) ) +exp {n* { rx-8 . 5 ) * ( rx-8 . 5 ) ) + 
exp (n* (rx-12. 5)* (rx-12. 5) ) +exp (n* (rx-11.5) * (rx-11 .5) ) + 
exp(n*(rx-0.5)*(rx-0.5) ) +exp {n* (rx-15 . 5) * (rx-15 . 5) ) )) ; 



Dl_data[i] = L_d0; 

Dl_data[i+1] = L_dl; 

Dl_data[i+2] = L_d2 

Dl_data[i+3] = L_d3 

Dl_parity[i] = L_d4 

Dl_parity[i+1] = 0.0; 

Dl_parity[i+2] = 0.0; 

Dl_parity[i+3] = 0.0; 

Disparity [i+4] = 0.0; 

Dl_parity[i+6] = 0.0; 

/* symbol 1, I dimension */ 
dO = data[i+4] ; 
dl = data[i+5] ; 
d2 = data[i+6] ; 
d3 = Encl [i+5] ; 

tx "- E 2*d2 1 -'2*d3 + 4*d2*d3 - 1.0 + { ( (2*d2-l) * (2*d3-l) ) <0? (d4-0 . 5) : (0 . 5-d4) ) 
tx = (dl === 0 ? (tx - 4): (4 - tx) ) ; 
tx = {d0 == 0 ? (tx -8): (8 - tx)); 
rx = tx + SIGMA_710_1024QAM * gasdev{); 

L dO = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n*(rx-2.5)*(rx-2.5) ) +exp(n* (rx-3. 5) * (rx-3. 5) ) + 
exp (n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp(n* (rx-6.5)*{rx-6.5) ) +exp (n* (rx-7 . 5) * ( rx-7 . 5 ) ) + 
exp { n* ( rx-8 . 5 ) * ( rx-8 . 5 ) ) +exp ( n* ( rx-9 . 5 ) * ( rx-9 . 5 ) ) + 
exp(n* (rx-10.5) * (rx-10 . 5) ) +exp (n* (rx-11.5) * (rx-11.5) ) + 
exp (n* (rx-12. 5)* (rx-12. 5) )+exp{n* {rx-13. 5)* (rx-13. 5) ) + 
exp (n* (rx-14 . 5) * (rx-14 .5) ) +exp (n* (rx-15 . 5) * (rx-15 .5) ) ) / 
(exp (n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp ( n* { rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp {n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp(n* (rx+6. 5) * (rx+6. 5) ) +exp(n* (rx+7 .5) * (rx+7. 5) ) + 
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exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



L d4 



log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp(n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 
exp (n* 



rx+8.5)* (rx+8.5 
rx+10. 5) * (rx+10 
rx+12.5) * (rx+12 
rx+14 .5) * (rx+14 



(rx-0, 
rx-2. 
rx-4 . 
rx-6. 
rx+0 
rx+2 . 
rx+4 
rx+6 
rx-8. 
rx-10 
rx-12 
rx-14 
rx+8 
rx+10 
rx+12 
rx+14 

(rx+4 , 
rx+6. 
rx+8 
rx+10 
rx-4 . 
rx-6. 
rx-8 
rx-10 
rx+0 
rx+2 
rx+12 
rx+14 
rx-0. 
rx-2 
rx-12 
rx-14 

(rx+0 
rx+6. 
rx+8. 
rx+14 
rx-0. 
rx-6 . 
rx-8 . 
rx-14 
rx+4 . 
rx+2. 
rx+12 
rx+10 
rx-4 
rx-2 
rx-12 
rx-10 

(rx+2. 
rx+6 
rx+10 
rx+14 
rx-2. 
rx-6. 
rx-10 
rx-14 
rx+4 . 
rx+7 . 
rx+12 
rx+0 . 
rx-4 . 
rx-7 . 
rx-12 



.5)*(rx-0. 
5)*(rx-2.5 
5) * (rx-4. 5 
5)*(rx-6.5 
5) * (rx+0. 5 
5)* (rx+2. 5 
5)* (rx+4. 5 
5) * (rx+6. 5 
5)* (rx-8. 5 
.5)*(rx-10 
.5)*(rx-12 
.5) * (rx-14 
5)* (rx+8.5 
.5) * (rx+10 
.5) * (rx+12 
.5)*(rx+14 



5))+exp(n*(rx~1.5)' 
)+exp(n* (rx-3.5)* 
) +exp (n* (rx-5.5) * 
)+exp(n* (rx-7. 5) * 



.5) * (rx+4 . 
5)* (rx+6. 5 
5)*(rx+8.5 
5)* (rx+10 
5)*(rx-4.5 
5)* (rx-6. 5 
5) * (rx-8. 5 
.5)* (rx-10 
5)*(rx+0.5 
5)* (rx+2. 5 
.5)*(rx+12 
.5) * (rx+14 
5) * (rx-0. 5 
5) * (rx-2 .5 
5)* (rx-12 
.5) * (rx-14 



5) 



5) * (rx+6. 5 
.5)* (rx+10 
.5) * (rx+14 
5)*(rx-2.5 
5)* (rx-6. 5 
.5) * (rx-10 
5}* (rx-14 
5)* (rx+4. 5 
5)* (rx+7. 5 
5)* (rx+12 
5)* (rx+0. 5 
5)* (rx-4. 5 
5)* (rx-7. 5 
.5)* (rx-12 



) +exp(n* (rx+9.5) * (rx+9.5) ) + 
5) )+exp(n* (rx+11,5) * (rx+11.5) ) + 
5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
5) ) +exp (n* (rx+15 . 5) * (rx+15 . 5) ) ) ) ; 



' (rx-1.5) ) 
(rx-3.5)) 
(rx-5.5) ) 
(rx-7. 5) ) 



}+exp(n* (rx+1.5) * (rx+1.5) ) 
) +exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) 
)+exp(n* (rx+5.5)* (rx+5.5} } 
) +exp(n* (rx+7 .5) * (rx+7 .5) ) ) / 
)+exp(n* (rx-9.5) * (rx-9.5) ) + 
5) )+exp(n* (rx-11.5)* (rx-11.5) ) 
5) )+exp(n*(rx-13,5)*(rx-13.5) ) 
5) )+exp(n* (rx-15.5) * (rx-15.5) ) 
)+exp(n* (rx+9.5) * (rx+9.5) ) + 
5) )+exp(n* (rx+11.5) * (rx+11.5) ) 
5) )+exp(n* (rx+13.5)* (rx+13.5) ) 
5) )+exp(n* (rx+15, 5) * (rx+15. 5) ) ) ) , 

) +exp(n* (rx+5.5) * (rx+5.5) ) + 
)+exp(n*(rx+7.5)*(rx+7.5) ) + 
}+exp(n*(rx+9.5)*(rx+9.5) } + 
5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
J+exp(n*(rx-5.5)*(rx-5.5)) + 
)+exp(n*(rx-7.5)*(rx-7.5)) + 
)+exp(n* (rx-9.5) * (rx-9.5) } + 
5) )+exp(n* (rx-11.5) * (rx-11.5) ) ) / 
)+exp(n* (rx+1.5)* (rx+1.5) } + 
)+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
5) )+exp (n* (rx+13, 5) * (rx+13.5) ) + 
5) )+exp(n* (rx+15,5)*(rx+15.5) ) + 
)+exp(n* (rx-1.5)* (rx-1.5)) + 
) +exp(n* (rx-3.5) * (rx-3.5) ) + 
5) )+exp(n* (rx-13.5)*(rx-13.5) ) + 
5) )+exp(n* (rx-15, 5) * (rx-15.5) ) ) ) ; 



.5) * (rx+0. 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
5)* (rx+6. 5) )+exp(n* (rx+7, 5) * (rx+7 .5) ) + 
5) * (rx+8.5) )+exp(n* (rx+9,5) * (rx+9.5) ) + 
.5) * (rx+14. 5) )+exp(n* (rx+15. 5) * (rx+15. 5) ) + 
5) * (rx-0. 5) )+exp(n* (rx-1 .5) * (rx-1.5) ) + 
5)*(rx-6.5))+exp(n*(rx-7.5)*(rx-7.5) ) + 
5 } * { rx-8 . 5 ) ) +exp (n* (rx-9 . 5 ) * (rx-9 . 5) ) + 
.5) * (rx-14 .5} ) +exp (n* (rx-15 .5) * (rx-15 . 5) ) ) / 
5) * (rx+4 .5) ) +exp (n* (rx+5 .5) * (rx+5 .5) ) + 
5) * (rx+2 .5) ) +exp (n* (rx+3 .5) * (rx+3 . 5) ) + 
.5)* (rx+12.5) )+exp(n* (rx+13 . 5} * (rx+13 . 5 ) ) + 
.5) * (rx+10. 5) )+exp (n* (rx+11. 5) * (rx+11.5) ) + 
5)* (rx-4. 5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
5)* (rx-2. 5) )+exp(n* (rx-3.5)* (rx-3.5) ) + 
5}*(rx-12.5) )+exp(n*(rx-13.5)*(rx-13.5) ) + 
5)* (rx-10. 5) )+exp(n* (rx-10 . 5) * (rx-10 . 5) ) ) ) ; 

5)* (rx+2. 5) )+exp(n* (rx+1 . 5) * (rx+1 . 5) ) + 



) +exp (n* (rx+5 . 5) * (rx+5 . 5) ) + 
5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
5) )+exp(n* (rx+13.5)* (rx+13.5) ) + 
)+exp(n*(rx-1.5)*(rx-1.5)) + 
)+exp(n* (rx-5.5)* (rx-5.5) ) + 
5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
5) )+exp(n* (rx-13,5)* (rx-13.5) ) )/ 
)+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
) +exp (n* (rx+8 . 5) * (rx+8 .5) ) + 
5))+exp(n*(rx+11.5)*(rx+11.5)) + 
)+exp(n*(rx+15.5)*(rx+15.5)) + 
) +exp(n* (rx-3.5) * (rx-3.5) ) + 
) +exp (n* (rx-8 . 5) * (rx-8 . 5) ) + 
5))+exp(n*(rx-11.5)*(rx-11.5)) + 
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exp(n*(rx-0.5)*(rx-0.5) ) +exp(n* (rx-15 .5) * (rx-15 . 5) ) ) ) ; 

Dl_data[i+4] = L_d0; 

Dl_data[i+5] = L_dl; 

Dl_data[i+6] = L_d2; 

Dl_parity[i+5] = L_d3; 

D2_parity[i] = L_d4; 

D2_parity[i+1] = 0.0; 

D2__parity[i+2] = 0.0; 

D2_parity[i+3] = 0.0; 

D2_parity[i+4] = 0.0; 

D2_parity[i+6] = 0.0; 

/* symbol 2, Q dimension */ 
d0 = data[i+7] ; 
dl = data[i+8] ; 
d2 = data[i+9] ; 
d3 = data[i+10] ; 

tx = 2*d2 C - + 2M3 + 4*d2*d3 - 1.0 + ( ( (2*d2-l) * (2*d3-l) )<0? (d4-0 .5) : <0.5-d4) ) 
tx = (dl == 0 ? (tx - 4) : {4 - tx) ) ; 
tx - (dO == 0 ? (tx -8): (8 - tx) ) ; 
rx = tx + SIGMA_710_1024QAM * gasdevO; 

L d0 = log<(exp{n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* ( rx-2 . 5 ) * { rx-2 . 5 ) ) +exp ( n* ( rx- 3 . 5 ) * ( rx-3 . 5 ) ) + 
exp(n* (rx-4.5)* (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp (n* (rx-6 . 5) * (rx-6 . 5) ) +exp (n* (rx-7 . 5) * (rx-7 . 5) ) + 
exp (n* ( rx-8 . 5 ) * ( rx-8 . 5 ) ) +exp (n* ( rx-9 . 5 ) * ( rx-9 . 5 ) ) + 
exp(n*(rx-10.5)*(rx-10.5) ) +exp(n* (rx-11.5) * (rx-11.5) ) + 
exp(n* (rx-12.5)*(rx-12.5) )+exp(n* (rx-13 .5) * (rx-13 . 5) ) + 
exp(n* (rx-14.5)* (rx-14.5) }+exp(n* (rx-15 . 5 ) * ( rx-15 . 5 ) ) ) / 
( exp { n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp (n* ( rx+1 . 5 ) * ( rx+1 - 5 ) ) + 
exp(n* (rx+2.5) * (rx+2 . 5) ) +exp (n* (rx+3.5) * (rx+3.5) ) + 
exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp (n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp (n* ( rx+6 . 5 ) * ( rx+6 . 5 ) ) +exp (n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) + 
exp (n* ( rx+8 . 5 ) * ( rx+8 . 5 ) ) +exp ( n* ( rx+9 . 5 ) * ( rx+9 . 5 ) ) + 
exp (n* ( rx+10 . 5 ) * ( rx+10 . 5 ) ) +exp (n* ( rx+11 . 5 > * ( rx+1 1 . 5 ) ) + 
exp(n* (rx+12. 5)* (rx+12.5) )+exp(n* (rx+13 . 5 ) * ( rx+13 . 5 ) ) + 
exp(n* (rx+14.5) * (rx+14.5) )+exp(n* (rx+15.5) * (rx+15.5) ) ) ) ; 

L dl = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp <n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp (n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp {n* ( rx-6 . 5 ) * ( rx- 6 . 5 ) ) +exp ( n* ( rx-7 . 5 ) * ( rx- 7 . 5 ) ) + 
exp (n* (rx+0 . 5) * (rx+0 . 5) ) +exp (n* (rx+1 . 5 ) * (rx+1 . 5) ) + 
exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3.5) ) + 
exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp (n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp ( n* ( rx+6 . 5 ) * ( rx+ 6 . 5 ) ) +exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) ) / 
( exp (n* ( rx-8 . 5 ) * ( rx-8 . 5 ) ) +exp (n* ( rx-9 . 5 ) * ( rx-9 . 5 ) ) + 
exp{n* (rx-10. 5) *{rx-10. 5) )+exp(n* (rx-11.5)* (rx-11.5) ) + 
exp(n* (rx-12.5)* (rx-12.5) )+exp(n* (rx-13. 5) * (rx-13 .5) ) + 
expfn* (rx-14.5)* (rx-14.5) )+exp{n* (rx-15 . 5) * (rx-15 . 5 ) ) + 
exp (n* (rx+8 . 5) * (rx+8 . 5) ) +exp (n* (rx+9 . 5) * (rx+9 . 5) ) + 
exp (n* (rx+10. 5) * (rx+10. 5) ) +exp (n* (rx+11 . 5) * (rx+11 . 5) ) + 
exp (n* ( rx+12 . 5 ) * ( rx+12 . 5 ) ) +exp (n* ( rx+13 . 5 ) * ( rx+13 . 5 ) ) + 
exp (n* ( rx+14 . 5 ) * ( rx+14 . 5 ) ) +exp (n* ( rx+15 . 5 ) * ( rx+15 . 5 ) ) ) ) ; 

L d2 = log((exp(n*(rx+4.5)*(rx+4.5))+exp(n*(rx+5.5)*(rx+5.5)) + 
exp ( n* ( rx+ 6 . 5 ) * ( rx+ 6 . 5 ) ) +exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) + 
exp (n* (rx+8. 5) * (rx+8. 5) )+exp(n* (rx+9 . 5) * (rx+9 . 5) ) + 
exp (n* (rx+10. 5) * (rx+10. 5) )+exp(n* (rx+11. 5) * (rx+11. 5) ) + 
exp ( n* ( rx- 4 . 5 ) * ( rx -4 . 5 ) ) +exp ( n* ( rx- 5 . 5 ) * ( rx- 5 . 5 ) ) + 
exp (n* { rx-6 . 5 ) * (rx-6 . 5) ) +exp (n* ( rx-7 . 5 ) * (rx-7 . 5 ) ) + 
exp(n* (rx-8. 5)* (rx-8. 5) )+exp(n* (rx-9. 5) * (rx-9. 5) ) + 
exp(n* (rx-10. 5) * (rx-10. 5) ) +exp (n* (rx-11 .5) * (rx-11.5) ) ) / 
( exp ( n* ( rx+ 0 . 5 ) * ( rx+ 0 . 5 ) ) +exp ( n* ( rx+ 1 . 5 ) * ( rx+ 1 . 5 ) ) + 
exp(n*(rx+2.5)*(rx+2.5) ) +exp (n* (rx+3 . 5) * ( rx+3 . 5 ) ) + 
exp ( n* ( rx+12 . 5 ) * ( rx+12 . 5 ) ) +exp { n* ( rx+1 3 . 5 ) * ( rx+13 . 5 ) ) + 
exp (n* ( rx+14 . 5) * ( rx+14 . 5 ) ) +exp ( n* ( rx+15 . 5 ) * ( rx+15 . 5 ) ) + 
exp{n*<rx-0.5)* (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2. 5)* (rx-2. 5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) + 
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exp (n* (rx-12 .5) * (rx-12 . 5) ) +exp (n* (rx-13 . 5) * (rx-13 . 5) ) + 
exp (n*( rx-14. 5)* (rx-14. 5) ) +exp (n* (rx-15 . 5) * (rx-15 . 5) ) ) ) ; 

L d3 " log((exp(n*(rx+0.5)*(rx+0.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp(n* (rx+6.5)* (rx+6.5) ) +exp (n* < rx+7 . 5 ) * (rx+7.5) ) + 
exp(n* (rx+8.5)* (rx+8.5) )+exp(n* (rx+9 . 5 ) * (rx+9 . 5) ) + 
exp (n* (rx+14 . 5) * (rx+14 . 5) ) +exp (n* (rx+15 . 5) * (rx+15 . 5) ) + 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-1 . 5) * ( rx-1 . 5) ) + 
exp(n*(rx-6.5)* (rx-6.5) )+exp(n* (rx-7 . 5) * {rx-7 . 5) ) + 
exp(n*(rx-8.5)* (rx-8.5) ) +exp (n* ( rx-9 . 5 ) * (rx-9.5) ) + 
exp(n* (rx-14.5) * (rx-14 . 5 ) ) +exp (n* (rx-15.5) * (rx-15.5) ) ) / 
{exp(n* (rx+4. 5) * (rx+4 .5) ) +exp(n* (rx+5.5) * (rx+5.5) ) + 
exp{n* (rx+2.5) * (rx+2.5) ) +exp (n* (rx+3 . 5) * (rx+3. 5) ) + 
exp(n*(rx+12.5)* (rx+12.5) )+exp(n* (rx+13 . 5) * (rx+13 . 5) ) + 
exp(n* (rx+10.5) * (rx+10.5) ) +exp (n* (rx+11 . 5) * (rx+11 . 5) ) + 
exp ( n* ( rx- 4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* ( rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3.5)*(rx-3.5) ) + 
exp (n* ( rx-12 . 5 ) * ( rx-12 . 5 ) ) +exp (n* ( rx-13 . 5 ) * ( rx-13 . 5) ) + 
exp(n* (rx-10.5) * (rx-10 . 5 ) ) +exp (n* (rx-10.5) * (rx-10.5) ) ) ) ; 

L d4 = log((exp(n*(rx+2.5)*(rx+2.5))+exp{n*(rx+1.5)*(rx+1.5)) + 
exp (n* (rx+6.5) * (rx+6.5) )+exp<n* (rx+5.5) * (rx+5.5) ) + 
exp ( n* ( rx+1 0 . 5 ) * ( rx+1 0 . 5 ) ) +exp ( n* ( rx+9 . 5 ) * ( rx+9 . 5 ) ) + 
exp (n* ( rx+14 . 5 ) * ( rx+14 . 5 ) ) +exp <n* ( rx+13 . 5 ) * ( rx+13 . 5 ) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* ( rx-1 . 5) * (rx-1. 5) ) + 
exp(n*(rx-6.5)*{rx-6.5) ) +exp (n* (rx-5 . 5) * (rx-5 . 5 ) ) + 
exp(n* (rx-10.5)* (rx-10.5) )+exp(n* (rx-9 .5) * (rx-9 . 5) ) + 
exp(n* (rx-14.5)* (rx-14.5) )+exp<n* (rx-13 . 5 ) * (rx-13 . 5 ) ) ) / 
( exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp { n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* { rx+8 . 5 ) * ( rx+8 . 5 ) ) + 
exp (n* ( rx+12 . 5 ) * ( rx+12 . 5 ) ) +exp (n* ( rx+11 . 5 ) * ( rx+11 . 5 ) ) + 
exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+15 . 5) * (rx+15 . 5) ) + 
exp (n* ( rx-4 . 5 ) * (rx-4 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp(n* (rx-7. 5) * (rx-7 . 5) ) +exp (n* (rx-8.5) * (rx-8.5) ) + 
exp(n* (rx-12. 5)* (rx-12. 5) )+exp(n* (rx-11 .5) * (rx-11. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-15 .5) * (rx-15 .5) ) ) ) ; 



Dl_data[i+7] = L_d0 
Dl_data[i+8] = L_dl 
Dl_data[i+9] = L_d2 
Dl_data[i+10] = L_d3 
D2_parity[i+5] = L_d4 
D2_parity[i+7] = 0.0; 
D2_parity[i+8] =0.0; 
D2_parity[i+9] = 0.0; 
D2_parity[i+ll] =0.0 
D2_parity[i+12] = 0.0 
D2_parity[i+13] = 0.0 

/* symbol 2, I dimension */ 
d0 = data[i+ll]; 
dl = data[i+12]; 
62 = data[i+13]; 
d3 = Enc2 [i+10] ; 
d4 = Encl [i+10] ; 

tx = 2*d2 - 2*d3 + 4*d2*d3 - 1.0 + ( ( (2*d2-l) * (2*d3-l) )<0? {d4-0.5) : (0.5-d4) ) 
tx = (dl == 0 ? (tx -4): (4 - tx) ) ; 
tx = (dO =- 0 ? (tx - 8): (8 - tx) ) ; 
rx = tx + SIGMA_710_1024QAM * gasdev(); 

L dO = log( (exp(n*(rx-0.5)*(rx-0.5) ) +exp <n* ( rx-1 . 5 ) * ( rx-1 . 5 ) ) + 
exp ( n* ( rx -2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx- 3 . 5 ) * ( rx- 3 . 5 ) ) + 
exp {n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* ( rx-5 . 5 ) * (rx-5 . 5) ) + 
exp (n* (rx-6.5) * (rx-6 . 5) ) +exp (n* (rx-7. 5) * (rx-7. 5) ) + 
exp (n* (rx-8.5) * (rx-8.5) )+exp{n* (rx-9.5) * (rx-9.5) ) + 
exp(n* (rx-10.5)* (rx-10.5) ) +exp (n* (rx-11 . 5) * (rx-11 . 5) ) + 
exp (n* ( rx-12 . 5 ) * ( rx-12 . 5 ) ) +exp (n* { rx-13 . 5 ) * ( rx-13 . 5 ) ) + 
exp(n* (rx-14 .5) * (rx-14 .5) ) +exp(n* (rx-15.5) * (rx-15.5) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp (n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp ( n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) 



+ 
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exp(n*(rx+6.5)*(rx+6.5) ) +exp (n* (rx+7 . 5) * (rx+7 . 5) ) + 
exp ( n* ( rx+8 . 5 ) * ( rx+8 . 5 ) } +exp { n* ( rx+9 . 5 ) * ( rx+9 . 5 ) ) + 
exp(n* (rx+10.5) * (rx+10.5) ) +exp(n* (rx+11.5) * (rx+11.5) ) + 
exp (n* ( rx+12 . 5 ) * ( rx+12 . 5 ) ) +exp (n* { rx+13 . 5 ) * ( rx+13 . 5 ) ) + 
exp(n*(rx+14.5)*(rx+14.5) ) +exp (n* (rx+15 . 5 ) * (rx+15 . 5 ) ) ) ) ; 

L_dl = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* ( rx-2 . 5 ) * { rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp ( n* ( rx- 4 . 5 ) * ( rx-4 . 5 ) ) +exp { n* { rx-5 . 5 ) * ( rx-5 . 5 ) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7 . 5) * { rx-7 . 5 ) ) + 
exp { n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp(n* (rx+2.5) * (rx+2.5) ) +exp (n* (rx+3.5) * (rx+3.5) ) + 
exp (n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp ( n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp (n* (rx+6. 5) * (rx+6.5) ) +exp (n* (rx+7 . 5) * (rx+7 .5) ) ) / 
(exp(n* (rx-8.5)*(rx-8.5) )+exp(n* (rx-9 .5) * (rx-9.5) ) + 
exp(n* (rx-10.5) * (rx-10 . 5) ) +exp (n* (rx-11 .5) * (rx-11.5) ) + 
exp(n*(rx-12.5)*(rx-12.5) ) +exp (n* (rx-13 . 5) * (rx-13.5) ) + 
exp (n*( rx-14. 5)* (rx-14. 5) )+exp(n* (rx-15.5) * (rx-15.5) ) + 
exp(n*(rx+8.5)*(rx+8.5) ) +exp {n* (rx+9. 5) * (rx+9 . 5) ) + 
exp(n* (rx+10.5) * (rx+10 .5) ) +exp (n* (rx+11.5) * (rx+11.5) ) + 
exp (n* (rx+12 . 5 ) * (rx+12 . 5 ) ) +exp (n* (rx+13 . 5 ) * (rx+13 . 5) ) + 
exp(n*(rx+14.5)*(rx+14.5) ) +exp (n* (rx+15 . 5) * (rx+15 . 5) ) )) ; 

L_d2 = log((exp(n*{rx+4.5)*(rx+4.5) ) +exp (n* (rx+5 . 5 ) * (rx+5 . 5) ) + 
exp ( n* ( r x+ 6 . 5 ) * { r x+ 6.5)) +exp ( n* ( rx+7 . 5 } * ( rx+7 . 5 ) ) + 
exp(n* (rx+8. 5) * (rx+8. 5) )+exp(n* (rx+9 . 5 ) * (rx+9 . 5 ) ) + 
exp(n* (rx+10.5) * (rx+10.5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* ( rx-5 . 5) * (rx-5 . 5) ) + 
exp{n* (rx-6.5) * (rx-6 . 5) ) +exp (n* (rx-7 . 5) * (rx-7 .5) ) + 
exp (n* ( rx-8 . 5 ) * ( rx-8 . 5 ) ) +exp (n* ( rx-9 . 5 ) * ( rx-9 . 5 ) ) + 
exp (n* (rx-10.5)* (rx-10.5) ) +exp (n* ( rx-11 . 5) * < rx-11 . 5) ) )/ 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp (n* ( rx+ 1 - 5 ) * ( rx+1 . 5 ) ) + 
exp (n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp (n* ( rx+12 . 5 ) * ( rx+12 . 5 ) ) +exp (n* ( rx+13 . 5 ) * ( rx+13 . 5 ) ) + 
exp (n* (rx+14 . 5 ) * (rx+14 . 5 ) ) +exp (n* (rx+15 . 5 ) * (rx+15 . 5 ) ) + 
exp (n* (rx-0 . 5) * (rx-0 . 5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp(n* (rx-2.5)*(rx-2.5) )+exp(n* (rx-3 .5) * (rx-3 .5) ) + 
exp(n*(rx-12.5)* (rx-12.5) )+exp(n* (rx-13 . 5) * (rx-13 . 5) ) + 
exp(n* (rx-14.5) * (rx-14.5) ) +exp (n* ( rx-15 . 5 ) * (rx-15.5) ) ) ) ; 

L d3 = log( (exp(n* {rx+0. 5)* (rx+0. 5) ) +exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp (n* (rx+6 . 5 ) * ( rx+6 . 5 ) ) +exp (n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) + 
exp (n* (rx+8 . 5) * (rx+8 . 5 ) ) +exp (n* ( rx+9 . 5 ) * (rx+9 . 5) ) + 
exp(n* (rx+14. 5) * (rx+14. 5) )+exp(n* (rx+15. 5) * (rx+15. 5) ) + 
exp (n* ( rx-0 . 5 ) * ( rx- 0 . 5 ) ) +exp (n* { rx-1 . 5 ) * ( rx- 1 . 5 ) ) + 
exp(n* (rx-6.5) * ( rx-6 . 5 ) ) +exp (n* (rx-7. 5) * (rx-7. 5) ) + 
exp (n* ( rx-8 . 5 ) * { rx-8 . 5 ) ) +exp (n* (rx-9 . 5) * ( rx-9 . 5 ) ) + 
exp(n* (rx-14.5)* (rx-14 .5) )+exp(n* (rx-15.5) * (rx-15.5) ) ) / 
(exp(n*<rx+4.5)*(rx+4.5) ) +exp (n* (rx+5 . 5) * (rx+5 . 5) ) + 
exp (n* (rx+2.5) * (rx+2 .5) ) +exp (n* (rx+3.5) * (rx+3.5) ) + 
exp <n* ( rx+12 . 5 ) * { rx+12 . 5 ) ) +exp (n* { rx+13 . 5 ) * ( rx+13 . 5 ) ) + 
exp (n* (rx+10 . 5) * (rx+10 . 5) ) +exp (n* (rx+11 . 5) * (rx+11 . 5) ) + 
exp (n* (rx-4 . 5) * (rx-4 .5) ) +exp (n* (rx-5 . 5) * (rx-5 .5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) + 
exp <n* ( rx-12 . 5 ) * ( rx- 12 . 5 ) ) +exp ( n* ( rx- 13 . 5 ) * ( rx- 13 . 5 ) ) + 
exp(n* (rx-10.5)* (rx-10.5) )+exp(n* (rx-10.5) * (rx-10.5) ) ) ) ; 

L_d4 - log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp(n* (rx+6.5) * (rx+6 . 5) ) +exp (n* (rx+5. 5) * (rx+5. 5) ) + 
exp (n* (rx+10.5)* (rx+10.5) ) +exp (n* (rx+9 .5) * (rx+9. 5) ) + 
exp(n*(rx+14.5)*(rx+14.5) ) +exp (n* (rx+13 . 5) * (rx+13 . 5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* { rx- 1 . 5 ) * ( rx-1 . 5 ) ) + 
exp (n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-5. 5) * (rx-5. 5) ) + 
exp(n* (rx-10.5) * (rx-10.5) )+exp(n* (rx-9.5)* (rx-9.5) ) + 
exp (n* (rx-14.5) * (rx-14 . 5) ) +exp (n* (rx-13.5) * (rx-13.5) ) } / 
( exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
exp ( n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp (n* ( rx+8 . 5 ) * ( rx+8 . 5 ) ) + 
exp (n* (rx+12. 5)* (rx+12. 5) )+exp(n* (rx+11. 5)* (rx+11. 5) ) + 
exp(n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+15. 5) * (rx+15. 5) ) + 
exp (n* ( rx-4 . 5 ) * ( rx-4 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp (n* ( rx-7 . 5 ) * (rx-7 . 5 ) ) +exp ( n* ( rx- 8 . 5 ) * ( rx-8 . 5 ) ) + 
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exp(n* <rx-12.5>* (rx-12.5) ) +exp (n* (rx-11.5) * <rx-ll .5) ) 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-15.5) * (rx-15.5) ) ) ) 



Dl data[i+ll] 


= L 


dO 


Dl_data[i+12] 


= l" 


_dl 


Dl data[i+13] 


= L_ 


d2 


D2 parity[i+10] 


= lJ 


d3; 


Dl parity[i+10] 


= L 


"d4; 


Dl_parity[i+7] 


= 0. 


"0; 


Dl parity[i+8] 


= 0. 


0; 


Disparity [i+9] 


= 0. 


0; 


Dljparity [i+11] 


= 0. 


0; 


Dl panty[i+12] 


= 0. 


0; 


Dl_parity[i+13] 


= 0. 


0; 


i = i+13; 







#endif 



/****************************************/ 



/* 

* At this moment we received the whole turbo code block: 

* Dl data[] stores the received information sequence, 

* Disparity [] stores the received punctured parity P sequence and 

* D2~data[] stores the interleaved received information sequence, 
V 

for(i = 0; i < INT_SIZE; i++) 

D2_data[i] - Dl_data[i]; 
r_ileav { D2_data , rule ) ; 
/* 

* D2 parity [] stores the received punctured parxty Q sequence. 
*/ 

for (iteration = 1; iteration <= NR_ITER; iteration++) 
{ 

/* 

* Start one iteration of the turbo decoder here: 
*/ 

#ifdef R4 6_64QAM_TTCM_VoCAL 

jat_map2 (jat_codel, Dl_data, Disparity, Dl_app, Dl_exi) ; 

#else 

jat_mapl ( jat_codel, Dl_data, Dl_parity, Dl_app, Dl_exi) ; 

#endif 

/* 

* Interleave the extrinsic information from Decoderl: 
*/ 

for(k =0; k < INT_SIZE; k++) 

D2_app[k] = Dl_exi[k]; 
r_ileav(D2_app, rule) ; 

/* 

* Decoder2 : 
*/ 

#ifdef R4 6_64QAM_TTCM_VoCAL 

jat_map2 (jat_code2, D2_data, D2_parity, D2_app, D2_exi); 

#else 

jat_mapl(jat_code2, D2_data, D2_parity, D2_app, D2_exi) ; 

#endif 

/* 

* Deinterleave the extrinsic information from Decoder2: 
*/ 

r_deileav(D2_exi, rule); 
for{k =0; k < INT_SIZE; k++) 
Dl_app[k] = D2_exi[k]; 
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#ifdef R4 6_64QAM_TTCM_VoCAL 

for(k = 0; k < INT_SIZE/2; k++) 

Dec_data[k] - Dl_data[k] + log (Dl_exi [k] ) + log (D2_exi [k] ) ; 

/* 

* Re-encode with encoderl: 
*/ 

jat_codel->enc_state =0; /* reset encoderl* s state */ 

for{k = 0; k < INT_SIZE/2; k++) 

Encl[k] = jat_enc_bp_fp(jat_codel, ( (Dec_data [kj > 0.0)?1:0)); 

/* 

* interleave data: 
*/ 

for(k = 0; k < INT_SIZE/2; k++) 

data_i[k] = ( (Dec_data [k] > 0.0)?1:0); 
r_ileava (data_i, rule); 

/* 

* Re-encode with encoder2 : 
*/ 

jat_code2->enc_state =0/ /* reset encoder2 1 s state */ 

for(k =0; k < INT_SIZE/2; k++) 

Enc2[k] = jat_enc_bp_fp (jat_code2, data_i[k]); 

/* 

* Find the closest point out of four in the sub-constellation 
*/ 

for(k = 0; k < INT_SIZE/2 - 1; ) 
{ 

u4 = ( (Dec_data[k] > 0.0)?1:0); 
u3 = ( (Dec_data[k+1] > 0.0)?1:0); 
u2 = Enclfk] ; 
ul = Enc2 [k+1] ; 

rx_I = Dl_data[k + INT_SIZE/2]; 
rx_Q = Dl_data[k + INT_SIZE/2 + 1]; 



#else 



#endif 



j = 4*u4+8*u3+16*u2+32*ul; 

v00_l = f ind_tx_I ( j ) ; 

v00_Q = find_tx_Q(j ) ; 

v01_I = find_tx_I(j+l) ; 

v01_Q = find_tx_Q(j+l) ; 

v!0_I = find_tx_I (j+2) ; 

vl 0_Q = f ind_tx_Q ( j +2 ) ; 

vll_I = find_tx_I ( j+3) ; 

vll_Q = find_tx_Q(j+3) ; 

Dec_data[k+INT_SIZE/2] = log( 

{exp(n* ( (rx_I-vll_I) * (rx_I-vll_I) + (rx_Q-vll_Q) * (rx_Q-vll_Q) ) )+ 

exp<n* { (rx_I-vl0_I) * (rx_I-vl0_I) + (rx_Q-vl0_Q) * (rx_Q-vl0_Q) ) ) ) / 
(exp(n* ( <rx_I-v01_I) * (rx_I-v01_I) + (rx_Q-v01_Q) * (rx_Q-v01_Q) ) ) + 

exp (n* { {rx_I-v00_I) * (rx_I-v0O_I) + (rx_Q-v00_Q) * (rx_Q-v00_Q) ) ) ) ) ; 

Dec_data[k+INT_SIZE/2+l] = log ( 

(exp(n* ( (rx_I-vll_I) * { rx_I-vll_I) + (rx_Q-vll_Q) * (rx_Q-vll_Q) ) ) + 
exp(n* { (rx_I-v01_I) * (rx_I-v01_JE) + (rx_Q-v01_Q) * (rx_Q-v01_Q) ) ) ) / 
(exp(n* ( (rx_I-vl0_I) * (rx_I-vl0_I) + (rx_Q-vl0_Q) * (rx_Q-vlO_Q) ) ) + 
exp (n* ( (rx_I-v00_I) * (rx_I~v00_I) + {rx_Q~v00_Q) * (rx_Q-v00_Q) ) ) ) ) ; 

k = k+2; 

} 



for(k =0; k < INT_SIZE; k++) 

Dec_data[k] = Dl_data[k] + log (Dl_exi [k] ) + log (D2_exi [ k] ) ; 
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* print errors: 
*/ 

k = print_err (data, Dec_data, iteration, block, no_err) ; 
if (k == 0} 
break; 

/* 

* End one iteration of the turbo decoder here. 
*/ 



} 

free ( jat__codel->POstate) ; 

free ( jat_codel->Plstate) ; 

free ( j at_codel->NOstate) ; 

free ( jat_codel->Nlstate) ; 

free ( jat__codel->CodedO) ; 

free { jat_codel->Codedl) ; 

free ( jat_codel) ; 

free ( jat_code2->P0state) ; 

free { j at_code2->Plstate) ; 

free ( jat_code2->N0state) ; 

f ree ( jat_code2->Nlstate) ; 

free ( jat_code2->CodedO) ; 

free { jat_code2->Codedl) ; 

free ( jat_code2) ; 

free (rule) ; 

free (data) ; 

free (data_i) ; 

free (data_d) ; 

free (no_err) ; 

free (Encl) ; 

free (Enc2) ; 

free (Dl_data) ; 

free (Disparity) ; 

free (Dl_app) ; 

free (Dl_exi) ; 

free (D2_data) ; 

free (D2_parity) ; 

free (D2_app) ; 

free (D2_exi) ; 

free (Dec_data) ; 

free (frame_hist) ; 

free (Zero__data) ; 

for(i = THRESHOLD_ITER; i <= NR_ITER; 

free {bit_hist_array [i] ) ; 
free (bit _hist_array) ; 
free (bit_hist_block) ; 
} 



/* jat_trellis_bp_fp {) initializes the code structure */ 

void jat_trellis_bp_fp( jat_code *code_str) 

{ 

int i; 

for(i ~ 0; i < code_str->nr_states ; i++) 
{ 

code_str->enc_state = i; 

code_str->POstate [i] = j at_ps (code_str, 0); 
code_str->Plstate [i] = jat_ps {codecs tr, 1); 
code_str->enc_state = i; 

code_str->CodedO [i] = j at_enc_bp_fp (code_str, 0) ; 

code_str->NOstate [i] = code_str->enc_state; /*next state i if d = 0 */ 
code_str->enc_state = i; 

code_str->Codedl [i] = j at_enc_bp_fp (code_str, 1); 

code_str->Nlstate [i] = code__str->enc_state; . /*next state i if d - 1 */ 

} 

} 
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/***************** ************************************************ 

/* jat_ps() returns the previous state, given the code structure & the input */ 
/* bit for the previous state */ 

/* input: current state, input bit for the previous state */ 

/* output: previous state */ 

int jat_ps ( jat_code *code_st, int inp) 
{ 

int pr_state, pr_msb, i, j, Jc, 1; 

if {code_st~>enc_mem == 1) 

{ 

pr_state = code_st->enc_state A inp; 

} 

else 

{ 

/*find previous state: */ 
pr_msb = (inp & 0x1) A (code_st->enc_state & 0x1); 

for (i=l, j=2, k= (1 « code__st->enc_mem-l } , l=code_st->enc_mem-l; i<code_st- 

>enc_mem; i++, 1 — ) 
{ 

pr_msb = pr_msb A ( ( (code_st->enc_state& j } »i) & { (code_st->bp&k) »1) ) ; 
j = j « 1; 
k = k » 1; 

} 

pr_state = ( (code_st->enc_state » 1) & { ( 1« (code_st->enc_mem -1)) -1)} I 
(pr_msb « (code_st->enc_jmem - 1) ) ; 

> 

return (pr_state) ; 

> 



/**************************************^ 

/* jat_enc_bp_fp ( ) - rate 1/2 systematic feedback convolutional enc. */ 
/* input: input bit to be encoded */ 

/* output: the coded bit */ 

/* Note: the Isb of the enc_state will have the new input bit */ 
/* the msb of the enc_state matches the Isb of bp & fp */ 

int j at_enc_bp_f p ( jat_code *code_st, int data) 
{ 

int new_lsb, parity, i, j, k, 1; 

new_lsb = data; 

if (code_st->enc_mem == 1) 

{ 

parity = code_st->enc_state A data; 
code_st->enc_state = parity; 

} 

else 
{ 

/* xor it with the bits of the enc_statel for which bpl is one */ 
for(i = 0 , j = 1, k = (1 « code_st->enc_mem-l) , 1 - code_st->enc_mem - 1; i < 
code_st->enc_jtnem; 1 — ) 

{ 

new_lsb = new_lsb A ( { (code_st->enc_state&j ) »i) & ( (code_st->bpsk) »1) ) ; 
j = j « 1; 
k = k » 1; 

} 

/* find the parity bit */ 
parity = new_lsb & { (code_st->fp& (l«code_st->enc_mem) ) » code_st->encjcnem) ; 
for{i = 0, j = 1, k = (1 « code_st->enc_mem-l) , 1 = code_st~>enc_mem - 1; i < 
code_st->enc_mem; i++, 1--) 
{ 

parity = parity A ( ( {code_st->enc_state&j ) »i) & ( (code_st->fp£k) »1) ) ; 
j = j « 1; 
k = k » 1; 

} 
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/* update code_st->enc_state */ 
codecs t->enc_s tat e - ( (code_st->enc_state & (code_st->nr_states/2 - 1)) « 1) 
new_lsb; 
} 

return (parity) ; 

} 

/*****************************^ 

void r__ileav (double *array, int *rule__i) 

{ 

double *i_wmem; 
int k; 

i_wmem = (double *)malloc ( si zeof (double) * INT_SIZE) ; 
i f ( i_wmem == 0 ) 

printf ("\nCouldn 1 t allocate i_wmem memory !") ; 
for(k = 0; k < INT_SIZE; k++) 

i_wmem[k] = array [k]; 
for(k = 0; k < INT_SIZE; k++) 

array [k] = i_wmem[rule_i [2*k+l] ] ; 
free (i_wmem) ; 



void r_ileava(int * array, int *rule_i) 
{ 

int *i_wmem; 
int k; 

i_wmem = (int *)malloc ( sizeof (int) * INT_SIZE) ; 
i f { i_wmem == 0 ) 

printf ("\nCouldn f t allocate i_wmem memory !") ; 
for(k ^ 0; k < INT_SIZE; k++) 

i_wmem[k] = array [k]; 
for(k = 0; k < INT_SIZE; k++) 

array [k] ~ i_wmem[rule_i [2*k+l] ] ; 
free ( i__wmem) ; 



void r_deileav (double *array, int *rule_d) 
{ 

double *d_wmem; 
int k; 

d_wmem = (double *) malloc (sizeof (double) * INT_SIZE) ; 
if (d__wmem == 0) 

printf ("\nCouldn T t allocate d_wmem memory !") ; 
for(k =0; k < INT_SIZE; k++) 

d_wmem[rule_d [2*k+l] ] = array[k]; 
for(k = 0; k < INT_SIZE; k++) 

array[k] = d__wmem[k] ; 
free ( d__wmem) ; 



void r_deileava (int *array, int *rule_d) 
{ 

int *d_wmem; 
int k; 

d_wmem = (int *) malloc (sizeof (int) * INT_SIZE) ; 
if (d_wmem == 0) 

printf ("\nCouldn't allocate d_wmern memory!"); 
for(k =0; k < INT_SIZE; k++) 

d_wmem[rule_d [2*k+l] ] = arraytk]; 
for(k = 0; k < INT_SIZE; k++) 
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array[k] = d_wmem[k] ; 
free (d__wmem) ; 

} 



/* nrgen() returns a random number between 0 and 1 */ 
/* (uniform distribution generator) */ 

double nrgenO 
{ 

long z, k; 

k = si / 53668; 

si = 40014 * (si - k * 53668) - k * 12211; 
if (si < 0) 

si += 2147483563; 
k = s2 / 52774; 

s2 = 40692 * (s2 - k * 52774) - k * 3791; 
if (s2 < 0) 

s2 += 2147483399; 
z = si - s2; 
if (z < 1) 

z += 2147483562; 
return ( (double) z / 2147483563); 



/***********************************^ 

/* nrgenbin() returns a 0 or 1 (uniform distribution) */ 
int nrgenbin ( ) 

{ 

return ((nrgen{) > 0.5)?1:0); 

} 



/* gasdev() returns a normally distributed deviate */ 
/* with zero mean and unit variance */ 

double gasdevO 
{ 

static int iset = 0; 

static double gset; 

double fac, r, vl, v2; 

if (iset 0) 
{ 

/* pick two uniform, numbers in the square extending from */ 
/* -1 to +1 in each direction, see if they are in the */ 
/* unit circle, and if they are not, try again. */ 
do 

{ 

vl = 2.0 * nrgenO - 1.0; 
v2 = 2.0 * nrgenO - 1.0; 
r = vl * vl + v2 * v2; 

} 

while (r >= 1.0 || r == 0.0); 
fac = sqrt(-2.0 * log(r)/r); 

/* now make the Box-Muller transformation to get two normal */ 
/* deviates; return one and save the other for next time. */ 
gset = vl * fac; 

iset = 1; /* set flag */ 

return (v2 * fac) ; 

} 

else 
{ 

/* we have an extra deviate handy, so unset the flag and */ 
/* return it. */ 
iset = 0; 
return (gset); 
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/* errors {) returns the nr. of positions in which two blocks of data are */ 

/* different; it accepts a shift between the addresses */ 

/* inputs: the address of the first block of integers */ 

/* the address of the second block of doubles */ 

/* the size of the block (blocks are equal) */ 



/* output: the number of positions in which the two blocks are dif. */ 

int errors {int *blockl, double *block2, int size, int iter_nr) 

{ 

int i; 

int count = 0; 

for(i = 0; i < size; 

if(blockl[i] != {{block2[iJ >0.0)?1:0)) 
{ 

count ++; 
#if defined BIT_HIST 

if (iter_nr>=THRESHOLD_ITER) 
{ 

*bit_hist_array [iter_nr] = bit_hist_block [iter_nr] ; 
bit_hist_array [iter_nr] ++; 
*bit__hist_array [iter_nrj = i; 
bit_hist_array [iter_nr] ++; 

} 

tendif 

} 

#if defined BIT_HIST 

if ( (count>0) && {iter_nr >= THRESHOLD^ TER) ) 
bit_hist_block[iter_nr] ++; 
#endif 

return (count); 

} 

/* print_err() append to the file the nr. of errors and BER */ 
/* returns: number of bit errors in a block */ 
int print_err (int *datal, double *data2, int iter_no, int block_no, int *err) 
{ 

int i, j, nr; 

int block_err = 0; 

char fname[] = B I T_H I S T_F I LE_N AME ; 

char sss[] = { * 0 ' , ' 1 f , <2 1 , ' 3 ' , ' 4 ' , 1 5 ' , ' 6 ' , ' 7 ' , ' 8 \ ' 9 ' } ; 
FILE *out_file = NULL; 
int *pi ; 

if((iter_no — 1) && (blockjno — 1)) 
{ 

out_file - f open (ERROR__FILE_NAME, "a"); 
if ( !out_file) 
{ 

printf ( "Error2 : the output file could not be opened! \n"); 
exit (1); 

} 

f print f(out_file, "ref_tc.c, RSCl_enc_mem = %d, RSCl_fp = %d, RSCl_bp = %d, 
RSC2_enc__mem = %d, RSC2_fp = %d, RSC2_bp = %d, si = %d, s2 = %d, int_size = %d, Limit soft 
outputs to = %e, Eb/No = %fdB\n", RSCl__ENC_MEM, RSCl_FP, RSCl_BP, RSC2_ENC_MEM, RSC2_FP, 
RSC2_BP, SEEDl, SEED2 , INT_SIZE, (double) MAX, (double) EBNO) ; 

f close (out_f ile) ; 

} 

block_err = errors (datal, data2, INTJSIZE, iter_no) ; 
err[iter_no - 1] += block_err; 

++f ramejiist [ (iter_no-l) * (INT_SIZE+1) + block_err] ; 

if{(iter__no == NR_ITER) && (block_err != 0)) 
++frame err; 
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#if defined BIT_HIST 

if ( (block_err != 0) && (iter_no >= THRESHOLD_ITER) ) 
{ 

f name [strlen (f name) -1]= sss [iter_no] ; 
out_file = fopen(fname, "a"); 
if { !out_file) 
{ 

printf ("Error: the bit_hist file could not be opened!\n"}; 
exit (1); 

} 

for (pi = bit_hist_array [NR_ITER +iter_no] ; pi < bit_hist_array [iter_no] ; pi = pi+2) 

fprintf (out_f ile, "\n%06d %06d", *pi, *{pi+l)}; 
f close (out_f ile) ; 

bit_hist_array [iter_no] = bit_hist_array [NR_ITER +iter_no] ; 

} 

#endif 

if(((iter_no == NR_ITER) && ( { (block_no % PRINT__BLOCKS ) =-0) [| (err [NR_ITER - 1] > 
MAX_ERRORS) ) ) II { ( (block_no % PRINT_BLOCKS) == 0) && (block_err == 0))) 



{ 

out_file = f open (ERROR_FILE_NAME, "a"); 
if ( !out_file) 
{ 

printf ("Error3: the output file could not be opened! \n"); 
exit (1); 

} 

nr = blockjio * INTJ5IZE; 

fprintf (out_f ile, "\n\nNr. of info bits: %d C%d blocks)", 

nr, block_no) ; 
for(j = 0; j < NR_ITER; 

fprintf (out_f ile, "\nlter: %02d. Errors: %06d, BER = %e", 
j + 1, err [j], (double) err [j] /INT_SIZE/block_no) ; 
total_err = err [NR__ITER - 1]; 

fprintf (out_file, "\nFrame error *= %f(%f errors per block) \n", 
(double) f rame_err/block_no / 

(frarue_err -= 0?0.0: (double) err [NR_ITER-1] /frame_err) ) ; 
fclose (out_f ile) ; 

if((block_no % 100000} == 0) 
{ 

out_file = fopen{FRAME_HIST_FILE_NAME, "a"); 
if ( !out_file) 
{ 

printf ("Error4 : the . fhist file could not be opened! \n"); 
exit (1); 

} 

nr = block_no * INT_SIZE; 

fprintf (out_f ile, "\n\nNr. of info bits: %d (%d blocks)", 

nr, block_no) ; 
for(j = 0; j <= INT_SIZE; j++) 
fprintf (out_f ile, "\n%03d %03d", 

j, frame_hist[ (NR_ITER-1) * (INT_SIZE+1) +j ] ) ; 
fclose (out_f ile) ; 

} 

} 

return (block_err) ; 
} 



/* This is a MAP decoder for a cs->nr_states states jat_code. */ 

/* function: decodes a block of received data of length INT_SIZE. */ 

/* It assumes that the encoder state starts from state zero */ 

/* input: code structure, I address, Q address, L_in address */ 

/* output: the extrinsic information in L_out */ 

/* globals: noise */ 
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/* 

*********************************************** 

* As jat_map but outputs probability and not log (probability) 

* It also can handle very large interleavers 
*/ 

void jatjxiapl ( jat_code *cs, double *I, double *Q, double *L_in, double *L_out) 
{ 



double 


sum, sum__0, sum_l, max; 




int 


if j, k, st; 




double 


*alpha_old; 




double 


*alpha_new; 




double 


*betaO; 




double 


*betal; 




double 


*probI; 




double 


*probQ; 




alpha_old = 


(double *)malloc (sizeof (double) 


* 2 * cs->nr states); 


alphajaew = 


(double * Jmalloc (sizeof (double) 


* 2 * cs->nr_states) ; 



betaO = {double *)malloc (sizeof (double) * INT_SIZE * cs->nr_states) ; 
if (betaO == 0) 
{ 

printf ("Couldn' t allocate betaO memory ! \n") ; 
exit (1) ; 

} 

betal = (double *)malloc (sizeof (double) * INTJSIZE * cs->nr_states) ; 
if (betal == 0) 
{ 

printf ("Couldn 1 t allocate betal memory ! \n") ; 
exit (1) ; 

} 

probl = (double *)malloc( sizeof (double) * INT_SIZE) ; 
if (probl == 0) 
{ 

printf ("Couldn' t allocate probl memory ! \n") ; 
exit (1) ; 

} 

probQ = (double *) malloc (sizeof (double ) * INT_SIZE) ; 
if (probQ == 0) 
{ 

printf ("Couldn 1 t allocate probQ memory I \n") ; 
exit (1) ; 

} 



/* initialize the alpha_old metrics 
for(st = 0; st < cs->nr_states; st++) 
for(k =0; k < 2; k++) 

*(alpha_old + k * cs->nr_states + st) = 0.0; 

*(alpha_old + cs->P0state [0] ) = 1.0; 

*[alpha_old + cs->nr_states + cs->Plstate [0] ) = 1.0; 

/* initialize beta's 

for(st =0; st < cs~>nr_states ; st++) 
{ 

betaO [ (INT_SIZE - 1) * cs->nr_states + st] = 1.0; 
betal [ (INT_SIZE - 1) * cs->nr_states + st] = 1.0; 

} 

/* compute all beta's 
for(i = INT_SIZE - 2; i >= 0; i— ) 
{ 

probl [i + 1] = exp(I[i + 1] ) * L_in[i + 1]; 
probQ[i + 1] = exp(Q[i + 1]); 
for(st = 0; st < cs->nr_states ; st++) 
{ 

/* compute beta0[i] [st] : 
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betaO[i * cs->nr_states + st] = betaO[(i + 1) * cs->nr_states + cs 

>W0state [st] ] * 

( {cs->CodedO [cs->NOstate [st] ] == 0)?l:probQ[i + 1]) + 
betal[(i + 1) * cs->nr_states + cs->NOstate [st] ] *probI [i +1]* 
( (cs->Codedl [cs->NOstate [st] ] == 0)?l:probQ[i + 1] ) ; 
betal[i * cs->nr_states + st] = betaO[(i + 1) * cs->nr_states + cs 



>Nlstate [st] ] * 



} 



C (cs->CodedO [cs->Nlstate [st] J == 0)?l:probQ[i + 1] } + 

betal[(i + 1) * cs->nr_states + cs->Nlstate [st] ] *probI [i + 1]* 

( (cs->Codedl [cs->Nlstate [st] ] == 0>?l:probQ[i + 1]); 



max = betaO[i * cs->nr_states] ; 
for(st = 1; st < cs->nr_states; st++) 
if (betaOfi * cs->nr_states + st] > max) 
max - betaO[i * cs->nr_states + st] ; 
forfst = 0; st < cs->nr_states; st++) 
if(betal[i * cs->nr_states + st] > max) 
max = betalfi * cs->nr_states + st] ; 
for(st = 0; st < cs->nr_states; st++) 
{ 

beta0[i * cs->nr_states + st] = beta0[i * cs->nr_states + st] / max; 
betal[i * cs->nr_states + st] = betalfi * cs->nr_states + st] / max; 

} 

} 

/* now we have all beta's; we can compute alpha for all states for each */ 
/* data bit and using beta's we compute lambda */ 
probl[0] = exp(I[0]) * L_in[0]; 
probQ[0] - exp(Q[0] ) ; 
for{k =0; k < INT_SIZE; k++) 
{ 

for(st =0; st < cs->nr_states; st++) 
{ 

sum = *(alpha_old + cs->P0state [st] ) + * (alpha_old + cs->nr__states + cs 
>Plstate[st] ) ; 

*{alpha_new + st) = sum * ( (cs->CodedO [st] == 0) ?1 :probQ [ k] ) ; 

*(alpha_new + cs->nr_states + st) = sum * probI[k] * ( (cs->Codedl [st] 
0) ?l:probQ[k] ) ; 
} 

/* find the max value and renormalize alpha's; */ 
max = *alpha_new; 

for(st = 0; st < cs->nr_states; st++) 
for(j = 0; j < 2; j++) 

if (* (alpha_new + cs->nr_states * j + st) > max) 

max = *{alpha_new + cs->nr_states * j + st) ; 
for(st = 0; st < cs->nr_states; st++) 
for(j = 0; j < 2; j++) 

* (alpha_new + cs->nr_states * j + st) = *(alpha_new + cs->nr_states * j + st) 



max; 



/* find sum_0 and sum_l over all states for L_out: */ 
sum_0 = 0.0; 
sum_l = 0.0; 

for{st = 0; st < cs->nr_states ; st++) 
{ 

sum_0 += *(alpha_new + st) * beta0[k * cs->nr_states + st] ; 

sum_l += * (alpha_new + cs->nr_states + st) * betal[k * cs->nr_states + st] ; 

} 

/* output the extrinsic information: */ 
L_out[k] = (sum_l / sumj)) / exp(I[k]) / L_in[Jc]; 
if (L_out[k] > MAX) 

L_out[k] = MAX; 
if(L_out[k] < 1/MAX) 

L_out[k] = 1/MAX; 

for(st = 0; st < cs->nr_states; st++) 
for<j = 0; j < 2; j++) /* update alphas */ 

*(alpha_old + cs->nr_states * j + st) =* (alpha_new + cs->nr_states * j + st); 
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} 

free {betaO) ; 
free (betal) ; 
free (probl ) ; 
free (probQ) ; 
free (alpha_old) ; 
free (alpha__new) / 
} 



double find__tx_I (int k) 
{ 

double tx_I; 

switch (k) 
{ 

case 0: 

tx_I = 0.5; 

break; 
case 1: 

tx_I = -3.5; 

break; 
case 2: 

tx_I = 0.5; 

break; 
case 3: 

tx_I = -3.5; 

break; 
case 4: 

tx_I = 2.5; 

break; 
case 5: 

tx_I = -1.5; 

break; 
case 6: 

tx_I = 2.5; 

break; 
case 7 : 

tx_I = -1.5; 

break; 
case 8: 

tx_I = 2.5; 

break; 
case 9: 

tx_I = -1.5; 

break; 
case 10: 

tx_I = 2.5; 

break; 
case 11: 

tx_I - -1.5; 

break; 
case 12 : 

tx_I = 0.5; 

break; 
case 13: 

tx_I = -3.5; 

break; 
case 14: 

tx_I = 0.5/ 

break; 
case 15: 

tx_I = -3.5; 

break; 
case 16: 

tx_I = 1.5; 

break; 
case 17: 

tx_I = -2.5; 

break; 
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case 18: 

tx_I = 1.5; 

break; 
case 19: 

tx_I = -2.5; 

break; 
case 20: 

tx_I = 3.5; 

break; 
case 21: 

tx_I = -0.5; 

break; 
case 22: 

tx_I = 3.5; 

break; 
case 23: 

tx_I = -0.5; 

break; 
case 24: 

tx_I = 3.5; 

break; 
case 25: 

tx I = -0.5; 



break; 
case 26: 





tx I = 3.5; 




break; 




case 27 : 




tx I = -0.5; 




break; 




case 28 : 




tx I = 1.5; 


:|« 


break; 




case 29: 




tx I = -2.5; 




break; 


\i 


case 30: 


iiv::: Is 


tx_I = 1.5; 




break; 




case 31: 




tx_I = -2.5; 




break; 




case 32: 




tx_I = 1.5; 




break; 




case 33: 




tx_I = -2.5; 




break; 




case 34: 




tx_I = 1.5; 




break; 




case 35: 




tx_I = -2.5; 




break; 




case 36: 




tx_I = 3.5; 




break; 




case 37: 




tx_I = -0.5; 




break; 




case 38: 




tx_I = 3.5; 




break; 




case 39: 




tx_I = -0.5; 




break; 




case 40: 




tx_I = 3.5; 




break; 




case 41: 




tx_I = -0.5; 
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break; 
case 42: 

tx_I = 3.5; 
break; 
case 43: 

tx_I = -0.5; 
break; 
case 44: 

tx_I = 1.5; 
break; 
case 45: 

tx_I = -2.5; 
break; 
case 46: 

tx_I = 1.5; 
break; 
case 47 : 

tx_I - -2.5; 
break; 
case 48: 

tx_I = 0.5; 
break; 
case 49: 

tx_I = -3.5; 
break; 
case 50: 

tx_I = 0.5; 
break; 
case 51: 

tx_I = -3.5; 
break; 
case 52: 

tx_I = 2.5; 
break; 
case 53: 

tx_I = -1.5; 
break; 
case 54: 

tx_I = 2.5; 
break; 
case 55: 

tx_I - -1.5; 
break; 
case 56: 

tx_I =2.5; 
break; 
case 57: 

tx_I = -1.5; 
break; 
case 58: 

tx_I = 2.5; 
break; 
case 59: 

tx_I = -1.5; 
break; 
case 60: 

tx_I = 0.5; 
break; 
case 61: 

tx_I = -3.5; 
break; 
case 62: 

tx_I = 0.5; 
break; 
case 63: 

tx_I = -3.5; 
break; 

} 

return (tx_I) ; 
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double find_tx_Q{int k) 
{ 

double tx_Q; 

switch (k) 

{ 

case 0: 

tx_Q = 2.5; 
break; 
case 1: 

tx_Q = 2.5; 
break; 
case 2: 

tx_Q = -1.5; 
break; 
case 3 : 

tx_Q = -1.5; 
break; 
case 4: 

tx_Q = 0.5; 
break; 
case 5: 

tx__Q =0.5; 
break; 
case 6: 

tx_Q = -3.5; 
break; 
case 7 : 

tx_Q = -3.5; 
break; 
case 8: 

tx_Q = 2.5; 
break; 
case 9: 

tx_Q - 2.5; 
break; 
case 10: 

tx_Q = -1.5; 
break; 
case 11: 

tx_Q = -1.5; 
break; 
case 12: 

tx_Q = 0.5; 
break; 
case 13: 

tx_Q = 0.5; 
break; 
case 14: 

tx_Q = -3.5; 
break; 
case 15: 

tx_Q = -3.5; 
break; 
case 16: 

tx_Q =3.5; 
break; 
case 17: 

tx_Q = 3.5; 
break; 
case 18: 

tx_Q = -0.5; 
break; 
case 19: 

tx_Q = -0.5; 
break; 
case 20: 

tx_Q = 1.5; 
break; 
case 21: 

tx_Q = 1-5; 
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CI 

m 
m 

41 

m 

Q 

m 

o 
4: 

hi 
0 
Cl 



break 

case 22 
tx_Q 
break 

case 23 
tx_Q : 
break 

case 24 
tx_Q ■ 
break 

case 25 
tx_Q = 
break 

case 26 
tx_Q = 
break 

case 27 
tx_Q = 
break 

case 28 
tx_Q < 
break 

case 29 
tx_Q = 
break 

case 30 
tx_Q ■■ 
break 

case 31 
tx_Q = 
break 

case 32 
tx_Q ■ 
break 

case 33 
tx_Q = 
break 

case 34 
tx_Q = 
break; 

case 35: 
tx_Q = 
break; 

case 36 

tX_Q = 

break 

case 37 
tx_Q = 
break 

case 38 
tx_Q = 
break 

case 39 
tx_Q ■ 
break 

case 40 
tx_Q = 
break 

case 41 
tx_Q = 
break 

case 42 
tx_Q = 
break 

case 43 
tx_Q = 
break 

case 44 
tx_Q ■ 
break 

case 45 



-2.5; 



-2.5; 



3.5; 



3.5; 



-0.5; 



-0.5; 



1.5; 



1.5; 



-2.5; 



-2.5; 



2.5; 



2.5; 



-1.5; 



-1.5; 



0.5; 



0.5; 



-3.5; 



-3.5; 



2.5; 



2.5; 



-1.5; 



-1.5; 



0.5; 



86 



COMPUTER PROGRAM LISTING APPENDIX 



tx_Q 
break 

case 46 
tx_Q = 
break 

case 47 
tx_Q = 
break 

case 48 
tx_Q = 
break 

case 49 
tx_Q ■■ 
break 

case 50 
tx_Q = 
break 

case 51 
tx_Q = 
break 

case 52 
tx_Q = 
break 

case 53 
tx_Q = 
break 

case 54 
tx_Q ■■ 
break 

case 55 
tx_Q = 
break 

case 56 
tx_Q ■■ 
break 

case 57 
tx_Q = 
break 

case 58 
tx_Q = 
break 

case 59 
tx_Q = 
break 

case 60 
tx_Q = 
break 

case 61 
tx_Q = 
break 

case 62 
tx_Q ■■ 
break 

case 63 
tx_Q ■■ 
break 

} 

return (tx 



= 0.5; 



-3.5; 



-3.5; 



3.5; 



3.5; 



-0.5; 



-0.5; 



1.5; 



1.5; 



-2.5; 



-2.5; 



3.5; 



3.5; 



-0.5; 



-0.5; 



1.5; 



1.5; 



-2.5; 



-2.5; 



Q) ; 



/* This is a MAP decoder for a cs-*>nr_states states jat_code. 

/* function: decodes a block of received data of length lNT_slZE/2, 

/* It assumes that the encoder state starts from state zero 

/* input: code structure, I address, Q address, L_in address 

/* output: the extrinsic information in L_out 

/* globals: noise 
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* As jat_map but outputs probability and not log (probability) 

* It also can handle very large interleavers 
*/ 

void jat_map2 ( jat_code *cs, double *I, double *Q, double *L_in, double *L_out) 
{ 



double 


sum, sum_0, sum_l, max; 




int 


i, j, k, st; 




double 


*alpha_old; 




double 


*alpha_new; 




double 


*betaO; 




double 


*betal; 




double 


*probI; 




double 


*probQ; 




alpha_old = 


(double *)malloc (sizeof 


(double) * 2 * cs->nr_states ) ; 


alpha_new = 


{double *)malloc (sizeof 


(double) * 2 * cs->nr_states) ; 



betaO = (double *}malloc{sizeof (double) * INT_SIZE/2 * cs->nr_states ) ; 
if (betaO == 0) 
{ 

printf ("Couldn't allocate betaO memory ! \n" ) ; 
exit (1) ; 

} 

betal = (double * )malloc (sizeof (double) * INT_SIZE/2 * cs->nr_states) ; 
if (betal == 0) 
{ 

printf ("Couldn't allocate betal memory! \n"); 
exit (1) ; 

} 

probl = (double * ) malloc ( sizeof (double) * INT_SIZE/2) ; 
if (probl == 0) 
{ 

printf ( "Couldn ' t allocate probl memory !\n"); 
exit (1) ; 

} 

probQ = (double *) malloc (sizeof {double) * INT_SIZE/2); 
if (probQ == 0) 

{ 

printf ("Couldn 1 t allocate probQ memory ! \n" ) ; 
exit (1) ; 

} 



/* initialize the alpha_old metrics */ 
for (st = 0; st < cs->nr_states; st++) 
for(k - 0; k < 2; k++) 

*(alpha_old + k * cs->nr_states + st) = 0.0; 

*(alpha_old + cs->P0state [0] ) = 1.0; 

* (alpha_old + cs->nr_states + cs->Plstate [0] ) = 1.0; 

/* initialize beta's */ 
forfst = 0; st < cs->nr_states; st++) 
{ 

betaO [ (INT_SIZE/2 - 1) * cs->nr_states + st] = 1.0; 
betal [ (INT_SIZE/2 - 1) * cs->nr_states + st] = 1.0; 

} 

/* compute all beta's */ 
for(i = INT_SIZE/2 - 2; i >= 0; i— ) 
{ 

probl [i + 1] = exp(I[i +1]) * L_in[i + 1] ; 
probQ[i + 1] = exp(Q[i + 1] ) ; 
for(st =0; st < cs->nr_states; st++) 
{ 

/* compute betaO [i] [st] : */ 
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betaOEi * cs->nr_states + st] = betaO[(i + 1) * cs->nr_states + cs 

>NOstate[st]]* , p , , 

((cs->Coded0[cs->N0state[st]] == 0) ?l:probQ[i + 1])+ 
betal[(i + 1) * cs->nr_states + cs->NOstate [ st] ] *probI [i +1]* 
( (cs->Codedl[cs->NOstate[st] ] == 0)?l:probQ[i + 1]); 
betal[i * cs->nr_states + st] = betaO[(i + D * cs->nr_states + cs 



>Nlstate[st] ] ' 



((cs->CodedO[cs->Nlstate[st]] == 0) ?1 :probQ[i + 1])+ 

betal[(i + 1) * cs->nr_states + cs->Nlstate [st] ] *probI [i + 1]* 

( (cs->Codedl[cs->Nlstate[st]] == 0)?l:probQ[i + 1]); 



max = betaO[i * cs->nr_states] ; 
for(st = 1; st < cs->nr_states; st++) 
if (beta0[i * cs->nr_states + st] > max) 
max = beta0[i * cs->nr_states + st] ; 
for(st = 0; st < cs->nr_states; st++) 
if (betal[i * cs->nr_states + st] > max) 
max = betal[i * cs->nr_states + st] ; 
for(st =0; st < cs->nr_states; st++) 

{ beta0[i * cs->nr_states + st] = beta0[i * cs->nr_states + st] / max; 
betal[i * cs->nr_states + st] = betal[i * cs->nr_states + st] / max; 

} 



} 

/* now we have all beta's; we can compute alpha for all states for each */ 
/* data bit and using beta's we compute lambda */ 
probl[0] = exp(I[0]) * L_in[0]; 
probQ[0] = exp(Q[0] ) ; 
for(k =0; k < INT_SIZE/2; k++) 
{ 

for(st =0; st < cs->nr_states ; st++) 

sum = *{alpha_old + cs->P0state [ st] ) + * (alpha_old + cs->nr_states + c 

>Plstate[st] ) ; , ri i v 

* (alpha new + st) = sum * ( (cs->Coded0 [st] == 0) ?l:probQ[k] ) ; 

Malphalnew + cs->nr_states + st) = sum * P robI[k] * { (cs->Codedl [st] 
0) ?l:probQ[k] ) ; 
} 

/* find the max value and renormalize alpha's: */ 
max = *alpha_new; 

for(st =0; st < cs->nr_states; st++) 
for(j = 0; j < 2; j++) 

if (* (alpha_new + cs->nr_states * j + st) > max) 

max = * (alpha_new + cs->nr_states * j + st) ; 
for(st =0; st < cs->nr_states; st++) 
for(j - 0; j < 2; . 

*(alpha_new + cs->nr_states * j + st) = * (alpha_new + cs->nr_states j + st 



max; 



/* find sum_0 and sum_l over all states for L_out: */ 
sum_0 = 0.0; 
sum_l = 0.0; 

for{st = 0; st < cs->nr_states; st++) 

{ sum 0 += *(alpha_new + st) * beta0[k * cs->nr_states + st] ; 

sum~l += *(alpha_new + cs->nr_states + st) * betal[k * cs->nr_states + st] ; 

} 

/* output the extrinsic information: */ 
L_out[k] = (sum__l / sum_0) / exp(I[k]) / L_in[k]; 
if (L_out[k] > MAX) 

L_out[k] = MAX; 
if(L_Out[k] < 1/MAX) 

L_out[k] = 1/MAX; 

for(st = 0; st < cs->nr_states; st++) 
for(j = 0; j < 2; update alphas */ 

* (alpha old + cs->nr_states * j + st) =* (alpha_new + cs->nr_states * j + st) ; 
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} 

free (betaO) ; 
free (betal) ; 
free (probl) ; 
free (probQ) ; 
free (alpha_old) / 
free (alpha_new) ; 
} 
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interlever . c 



#define MAX__C INDEX 4 6 
# define MAX_RINDEX 47 
#define MAX_ELEMENT 2100 
#include <stdio.h> 
Hnclude <stdlib.h> 

void main (void) 
{ 

int ra, ca; //la sequence row and column indices 
int count; //Counter for each bit in DMT frame 

int element; //Element number used for finding if element within array 
FILE * output; 



ou tput=f open ( "int erleaver", V) ; 
//Initial sequence indices 

ra=MAX_RINDEX- 1 ; 
ca=0; 

//Adjust the initial indices for la if beyond ending element 

element=ra*MAX_CINDEX+ca; 

while {element >=MAX_ELEMENT ) { 
ra — ; 
ca++; 

if (ra<0) { 

ra=MAX_RINDEX- 1 ; 
ca=ca+ (MAX_RINDEX-1) ; 

} 

ca=ca%MAX_CINDEX; 
element^ ra*MAX_CINDEX+ra; 

} 

//Fetch all elements in sequence la 

for (count = 0; count <MAX_ELEMENT ; count++) { 
//Fetch array [ra] [ca] 
element=ra*MAX_CINDEX+ca; 
f print f (output, "%d %d\n", count, element) ; 
//Update indices for next access 

do { 

ra — ; 

ca++; 

if (ra<0) { 

ra=MAX_RINDEX-l; 
ca=ca+(MAX_RINDEX-l) ; 

} 

ca=ca%MAX_C INDEX ; 

element = ra * MAX_CINDEX+ca; 
} while (element >= MAX_EI,EMENT ) ; 

} 

} 
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S-type interleaver generatior 



program int (input, output) ; , 

{This program generates mod-k S-random and symmetric mod-k S-random interleavers . 

const Nmax = 6553 6; {maximum interleaver size} 

var G,H,I,J,K,L,M,N,S, count, temp, prt , i_, j_, k_, im, jm: longint; 
inta,hat,deint : array [0. .Nmax] of longint; 
pass, good '.boolean; 

si, s2 : longint; {seeds for function uniform} 

into, deinto: text; 

symrchar; 

function max (x, y: longint) -.longint; 
{Finds the maximum of x and y} 
begin{max} 
if x > y 

then max : = x 

else max := y; 
end; {max} 

function min (x, y : longint ) : longint; 
{Finds the maximum of x and y} 
begin{min} 
if x < y 

then min := x 

else min := y; 
end; {min} 

function uniform{var si , s2 : longint) : double; 
{Generates a random number from 0.0 < x < 1.0} 
const mO = 2147483562; 

ml = 2147483563; 

m2 = 2147483399; 

al = 40014; 

a2 = 40692; 

ql = 53668; 

q2 = 52774; 

rl = 12211; 

r2 = 3791; 
var k : longint; 
begin{uniform} 
k := si div ql; 
si := al*(sl-k*ql) - k*rl; 
if si < 0 then si := sl+ml; 

k := s2 div q2; 

s2 a2*(s2-k*q2) - k*r2; 

if s2 < 0 then s2 := s2+m2; 

k := sl-s2; 

if k < 1 then k := k+mO; 
uniform := k/ml; 
end; {uniform} 

procedure s random; 

{Generates mod-k S-random interleaver} 
label 98; 

procedure reject; 
{reject random number} 
begin{reject} 

count := count-1; 
if count = 0 

then begin {bad int) 

good := false; 
goto 98; 
end; {bad int} 
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pass :- false; 

for M := K to count -1 do 

hat[M] := hat[M+l]; 
hat [count] := J; 
end; {reject} 

begin { S-random} 
repeat 

writeln ( 1 seedl - '^slil, seed2 = * ,s2:l); 

good := true; 

for I := 0 to N-l do 

hat[I] := I; 
for I := 0 to N-l do 
begin {make int} 
count := N-I; 
i_ := I mod k_; 
im : = min k_-i_) ; 
repeat 

pass := true; 

K :- trunc (count*uniform(sl, s2) ) ; 
if K = count then K := K-l; 
J := hat [K] ; 
if k_ > 1 then 
begin{mod k test} 
j_ := J mod Jc_; 
jm := min( j_, k_-j_) ; 
if im <> jm then reject; 
end; {mod k test} 
if pass = true then 
begin {S-random test} 

for L := max{0,I-S) to 1-1 do 

if {abs ( J-inta [L] ) <= S) and (pass = true) then reject; 
end {S-random test} 
until pass = true; 
for M := K to N-I-2 do 

hat [M] := hat[M+l] ; 
inta[I] := J; 
end; {make int} 
98: 

until good = true; 
end {S-random} ; 

procedure trandom; 

{Generates symmetric mod-k S-random interleaver} 
label 99; 

procedure rejects; 
{reject random number} 
begin{reject S} 
count := count-1; 
if count = 0 then 
begin{bad int} 
good := false; 
goto 99; 
end; {bad int} 
pass false; 
inta[I] : = -1; 
intaEJ] := -1; 
for M := K to count-1 do 

hat [M] := hat [M+l] ; 
hat [count] := J; 
end; {reject S} 

procedure test; 
{S-randorti test} 
begin{test} 

if (inta[L] >= 0) and (abs (G-inta [L] ) <= S) then rejects; 
L := L+l; 
end; {test} 

begin {T-random} 
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repeat 

writeln ('seedl = ' ,31:1,', seed2 = ',s2:l); 

good := true; 

for I := 0 to N-l do 

begin{init} 
hat [I] := I; 
inta[I] := -1; 

end; {init} 
H : = N; 
I 0; 
repeat 

count := H; 

while {inta[I] >= 0) and (I < N) do I := 1+1; 

i_ := I mod k_; 

im : - min { i_, k_-i_) ; 

repeat 

pass := true; 

K := trunc (count *uniform( si, s2) ) ; 
if K = count then K := K-l; 
J := hat[K] ; 
if k__ > 1 then 
begin{mod k test} 
j_ := J mod k_; 
jm := min(j_, k_-j_) ; 
if im <> jm then rejects; 
end; {mod k test} 
if pass = true then 
begin{S-random test} 
inta[I] := J; 
inta[J] := I; 
G := J; 

L := max(0,I-S) ; 

while (pass = true) and (L < 1} do test; 
L ;= 1+1; 

while (pass = true) and (L < min(I+S,N)) do test; 
G := I; 

L := max(0, J-S) ; 

while (pass ~ true) and (L < J) do test; 
L := J+l; 

while (pass = true) and £L < min { J+S , N ) ) do test; 
end; {S-random test} 
until pass = true; 

H := H-l; 

for M := K to H-l do 

hat[M] := hat[M+l]; 
if I <> J then 

begin{sym} 
K := 0; 

while (hat[K] <> I) and (K < H) do K K+l; 
H := H-l; 

for M := K to H-l do 
hat [M] := hat[M+l] ; 
end; { sym} 
until H = 0; 
99: 

until good = true; 
end{T-random} ; 

begin{int) 

si := 12345; {initialise seeds for uniform} 
s2 := 67890; 

writeln; 

writeln (' Random interleaver Generator V1.01'); 

writeln ( 'Copyright (c) 1998 Small World Communications. All rights reserved.'); 
writeln; 

write ('Enter block size N <= ',Nmax:l, f : '); 
readln (N) ; 

write ('Enter S parameter {S=l is random): '); 
readln (S) ; 
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write ('Enter mod-k parameter (k=l is normal): ? ); 
readln (k_) / 
repeat * 

write ('Do you want a symmetric interleaver? T ); 

readln (sym) ; 

pass := (sym = *y') or (sym = ' Y T ) or {sym = 'n') or (sym - 'N ? ); 

if pass = false then 

writeln { 1 Invalid entry. Try again.'); 
until pass = true; 
writeln; 
case sym of 

' y 1 , 1 Y ' : trandom; 

'n', 'N' : srandom; 
end; {case} 

assign (into, 1 int .dat 1 ) ; 

rewrite (into) ; 

for I := 0 to K-l do 

writeln (into, inta [I] : 1) ; 
close (into) ; 

for I := 0 to N-l do 

hat [I] := 0; 
for I := 0 to N-l do 

begin{ test} 
J := inta[I] ; 
hat [J] := hat [J] + 1; 

end; {test} 
pass := true; 
for I := 0 to N-l do 

if hat [I] < 1 then pass := false; 
if pass = false 

then writeln ('Bad interleaver!'); 

pass := true; 
I := 0; 
repeat 

J := inta[I] ; 

for L := max(0,I-S) to 1-1 do 

if (abs (J-inta[L3 ) <= S) and (pass = true) 
then begin 

pass := false; 

writeln ( 1 Interleaver failed S-test 1 ); 
writeln(I:l f ' ' , inta [I] : 1, 1 »,L:1,' • , inta [L] : 1) ; 
end; 

I := 1+1; 
until (pass = false) or (I = N) ; 

K := 0; 

for I := 0 to N-l do 

K max(K,abs (I-inta[I] ) ) ; 
writeln ( 1 Dmin = ' ,K:1); 

writeln ( 'Interleaver table int. dat succussfully generated'); 
end . {int} 
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